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ABSTRACT 

The  purpose  of  this  paper  is  to  illustrate  the  advantage  of 
modeling  in  the  design  of  a language.  An  h-graph  model  is  con- 
structed to  reflect  the  basic  version  of  SIMPL-T.  As  new  features 
are  added  to  the  language,  the  model  is  extended  accordingly. 

Several  h-graph  models  are  presented.  The  first  describes 
the  basic  version  of  SBD’L-T  which  recognizes  'integer'  as  its 
only  data  type.  The  model  is  then  extended  to  reflect  the  addi- 
tion of  escape  mechanisms  to  SIMPL-T.  The  EXIT  and  ABORT  state- 
ments have  been  added,  whereas  the  RliTURN  statement  lias  been 
assigned  an  expanded  role. 

The  model  is  then  again  extended  to  reflect  the  version  of 
SIMPL-T  that  recognizes  'string'  as  well  as  'integer'  data  tv^es. 
Strings  are  described  in  two  levels  of  detail:  11  as  single  units 

of  information,  and  2)  as  lists  of  individual  characters. 

Because  modeling  provides  a rigorous  definition  of  the  lan- 
guage, the  effects  of  changes  made  to  the  language  can  be  detected 
in  the  model.  New  features  can  be  added  without  sacrificing  the 
reliability  of  the  original  language.  The  family  of  h-graphs 
presented  in  this  paper  supports  these  contentions. 
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INTRODUCTION 


Semantic  modeling  provides  a set  of  tools  for  designing  a language 
in  a formal  and  systematic  manner.  It  provides  a rigorous  definition  of 
the  features  of  a language  that  is  free  of  the  details  of  Implementation. 
The  model  is  therefore  able  to  present  a high  level  description  of  the 
language  which  can  be  of  benefit  to  a wide  range  of  users.  The  user  who 
is  unfamiliar  with  the  language  may  use  the  model  as  a general,  yet  ac- 
curate description  of  the  language,  whereas  the  more  experienced  user 
may  find  it  useful  as  a template  for  showing  how  new  features  might  in- 
teract within  the  existing  language.  The  costs  involved  in  making  such 
changes  are  made  clear  by  the  model. 

To  support  these  contentions,  a family  of  models  will  be  presented 
in  this  paper.  The  language  being  modeled  is  SIMPL-T,  a procedure-or- 
iented, structured  prograimtilng  language.  The  semantic  facility  chosen 
is  the  Hierarchical  Graph  Language  (HGL)  [1].  It  provides  a sufficiently 
general  set  of  primitives  which  makes  it  possible  to  construct  a model 
that  will  reflect  SlMPL-T  as  closely  as  possible.  The  model  must  not  be 
so  restrictive  as  to  preclude  the  possibility  of  being  extended  for  new 
language  features,  but  at  the  same  time  must  not  be  so  general  as  to  lose 
its  usefulness  as  a guide  to  the  specific  language  in  question.  The  mod- 
el described  in  Chapter  II  of  thit  paper  presents  a reflection  of  SIMPL-T 
which  is  extended  in  Chapter  III  to  include  escape  mechanisms,  and  in 
Chapters  IV  and  V to  reflect  the  inclusions  of  string  data  in  SlMPL-T. 
Either  one,  or  both  of  the  extensions  can  be  added  without  compromising 
the  Integrity  of  the  original  model. 


CHAPTER  I 


HIERARCHICAL  GRAPH  LANGUAGE  (HGL) 

At  its  most  basic  level,  HGL  consists  of  a set  of  primitives  which 
are  defined  as  a set  of  nodes  and  a set  of  transition  functions  that 
change  the  complexion  of  these  nodes.  Each  node  may  be  thought  of  as  re- 
representing  a unit  of  information  about  the  language.  Associated  with 
the  node  may  be  some  atomic  data  value,  some  further  substructure  of  in- 
formation, and  some  set  of  attributes.  The  atomic  value  (v)  can  be 
thought  of  as  representing  some  program  data  which  may  change  during  ex- 
ecution; the  structured  value  (h)  as  representing  program  or  data  struc- 
tures; and  the  attributes  (a)  as  representing  some  compile-time  properties 
of  that  node  which  remain  static  during  execution.  Tliese  can  be  defined 
more  formally  as  mappings.  Let 
N be  a set  of  nodes 
D be  a set  of  atoms 
A be  a set  of  attributes  and 
G be  a set  of  graphs 

defined  over  elements  of  W . An  attributed  hierarchical  graph  (h-graph) 
over  (W,D,A,G)  is  a 4-tuple  (N,v,h,a)  where  N c M,  v:  N ► D, 
h:  N ► G,  and  a:  N x 1^  ► A where  ij^  denotes  the  first  k positive 
integers . 

The  execution  of  a program  in  the  model  is  defined  as  a sequence  of 
states.  Each  state  is  represented  by  an  h-graph  which  in  turn  repre- 
sents the  program  and  its  data  structures  at  some  point  in  the  execution. 
An  actual  state  transition  is  caused  by  some  change  in  one  of  the  three 
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mappings  v,  h,  or  a on  the  node,  or  the  inclusion  or  removal  of  a node 
from  the  set  N of  nodes.  The  functions  responsible  for  these  changes 
are : 

setv  which  assigns  an  atomic  value  to  a node 
seth  which  assigns  a graph  value  to  a node 
seta  which  assigns  an  attribute  to  a node 

define  which  adds  a new  node  to  the  nodeset  of  the  h-graph 
delete  which  removes  a node  from  the  nodeset  of  the  h-graph. 

These  functions  are  more  formally  defined  in  Table  1. 

It  is  now  the  responsibility  of  the  user  to  define  the  structures 
and  functions  that  can  be  used  in  conjunction  with  the  HGL  primitives  to 
build  a model  for  his  language.  The  data  structure  is  specified  by  the 
definition  of  some  particular  graph  structure  over  the  nodes  (e.g.,  sets, 
lists,  trees,  directed  graphs)  along  with  a set  of  construction  and  ac- 
cessing primitives  that  permit  the  building  and  traversing  of  that  graph 
structure.  The  control  structure  is  specified  by  the  definition  of  a 
meta-control  language  defined  over  the  HGL  primitive  transition  functions 
and  the  graph  accessing  and  construction  primitives.  These  basic  primi- 
tives and  structures  can  now  be  used  as  building  blocks  in  the  construc- 
tion of  the  abstract  syntax  and  semantic  functions  for  the  language  be- 
ing modeled. 

Before  discussing  the  details  of  the  particular  model  presented  in 
this  paper,  a glance  at  the  following  figure  may  help  put  the  various 
elements  of  the  model  into  their  proper  perspective.  Each  block  is  built 
using  the  definitions  of  the  ones  below  in  conjunction  with  its  adjacent 


block. 


A 


ABSTRACT 

SEMANTIC  FUNCTIONS 

SYNTAX  for  L 

for  L 

DATA 

CONTROL 

STRUCTURES 

STRUCTURES 

BASIC  HGL 

PRIMITIVES 

Two  data  structures  have  been  chosen  for  the  modeling  of  SIMPL-T: 
the  directed  graph  and  the  list.  The  directed  graph  structure  is  de- 
fined as  a 4-tuple  (N  ,E  ,n  ,e  ) where 

g g g g 

is  a set  of  nodes  (nodes  (g)), 

E is  a set  of  edges  (denoted  by  arcs  (g)), 
g 

n is  a distinguished  node  called  the  entry  node  (denoted  by  entry 
g 

(g)). 


e is  the  edge  label  mapping, 
g 

The  directed  graph  is  used  in  the  compile  time  environment  to  cre- 
ate a model  which  is  able  to  represent  the  ordering  of  statements  that 
is  implicit  in  a SlMPL-T  program.  Its  set  of  arcs,  along  with  its  corre 
sponding  edge  mapping,  enable  the  model  to  follow  a program's  flow  of 
control.  Once  compilation  is  complete  and  all  statements  have  been  in- 
terpreted, the  directed  graph  structure  is  available  for  traversal  and 
access.  No  alteration  to  these  graphs  is  necessary’  from  this  point  on. 
Inasmuch  as  this  paper  presents  a model  that  is  to  be  used  In  the  run- 
time environment  when  graph  construction  is  already  complete,  only  those 
primitives  that  are  needed  to  traverse  the  graph  will  be  described  below 
padj  - returns  the  set  of  nodes  that  terminate  an  outgoing  arc  from 
a specified  node  in  the  graph 
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nadj  - returns  the  set  of  nodes  that  begin  an  incoming  arc  to  a 
specified  node  in  the  graph. 

Data  storage  can  be  handled  in  a strictly  linear  fashion,  A simpli- 
fied version  of  the  directed  graph  which  allows  each  item  to  point  only 
to  its  Inmediate  neighbor  has  therefore  been  chosen:  the  list  structure. 
The  algorithms  generated  at  execution  time  follow  a strictly  linear  order- 
ing, and  so  they  too  can  be  handled  by  this  same  data  structure. 

f I 

A list  is  defined  by  the  4-tuple  (N,E,n  ,n  ) 
where  N is  a set  of  nodes 

E is  a set  of  edges  defined  by  the  node  pairs  (n,m), 
n,m  £ N such  that  each  node  in  N (except  for  the 
first  node)  appears  as  the  first  element  of  a node 
pair  defining  an  edge  exactly  once,  and  each  node  in 
N (except  for  the  last  node)  appears  as  the  second 
element  of  a node  pair  defining  an  edge  exactly  once 
n^  is  the  first  node  (denoted  by  entry  ( £)) 
n^  is  the  last  node. 

Lists  are  both  generated  and  accessed  during  execution  and  so  the 
following  primitives  are  defined: 

(a)  list  construction  primitives 

push  which  adds  a node  to  the  beginning  of  a list 
pop  which  removes  the  first  node  of  a list 
append  which  adds  a node  to  the  end  of  a list 
list  which  builds  a list  from  a single  node 

(b)  list  accessing  primitives 

last  returns  the  last  node  of  a list 


next  returns  the  next  node  of  a list 
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item  returns  a designated  node  of  a list. 

A more  formal  definition  of  the  graph  primitives  is  to  be  found  in 
TABLE  2,  and  that  of  list  primitives  in  TABLE  3,  TABLE  4. 

The  control  structures  chosen  for  the  modeling  of  SLMPL-T  consist 
of  set  expressions,  recursive  functions,  and  conditional  expressions. 
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TABLE  1. 

HGL  STATE  TRANSITION  PRIMITIVES 

Let  S^  = (N^,Vj^,h^,a^)  be  the  h-graph  representation  of  the  pro- 
gram in  state  S,  and  (N, , , ,v. . , ,h  , ,a, ^, ) be  the  h-graph  representa- 
1 1+1  1+1  1+i  1+1 

tion  of  the  program  in  state  . The  primitives  associated  with  the 

state  transition  from  S,  to  S.  , are  defined  below. 

1 i+1 


setv  ; X D >■  N^ 

The  execution  of  setv(n,d)  for  n C N^  and  d € D returns  the 

node  n and  generates  the  state  whose  only  new  component  is 

V. , , defined  by 
1+1  ^ 


Vi^l(m) 


fv^(m),  m e 
L d , m = n 


(assigns  an  atomic  value  to  a 


m n 


node  and  returns  the  node) 


seth  : N , x G - N . 

1 1 

The  execution  of  seth(n,g)  for  n € and  g € G returns  the 

node  n and  generates  the  state  S^^^  whose  only  new  component  is 
defined  by 


hi^,(m) 


h^  (m) , m € m n 

. g , m = n 


(assigns  a graph  structure  to  a node  and  returns  the  node) 


seta  : N , X I,  x A ► N , 
i k 1 


The  execution  of  seta(n,j,p)  for  n € , j C , and  p € A 

returns  the  node  n and  generates  the  state  whose  only  new  com- 

ponent is  a,.,  defined  bv 
1+1 

a (m  (Li  = /P*  ' n,  i = ,i 

1+1'  ’ \a^(m,i)  otherwise 

(.seta  assigns  an  attribute  to  a node  and  returns  the  node)  (1] 


Note:  The  parameters  of  the  primitive  operations  setv,  seth,  seta  are 


evaluated  in  random  order. 
define  : N ->■ 

The  execution  of  define  returns  a node  n € N - and  generates 
the  state  which  is  defined  in  terms  of  as  follows: 

■ “i  u 

V . f Vj(oi)  , m € 

^undefined,  m = n 

h ^ fh^(m)  , m € 
i+1  \undefined,  m = n 

^ f a (m,  j) , m 6 N j € 
i+1  ^undefined,  m = n 

(define  adds  a new  node  to  the  nodeset  of  the  h-graph) 

In  addition  to  this  version  of  the  function  which  appears  with  no 
parameters,  tlie  following  version  can  be  used 

define  (n  | v(n)  = d,  h(n)  “ g,  a(n,l)  = a^^ , . . . , a(n , r)  “ a^) 
which  combines  the  addition  of  tlie  new  node  to  the  h-graph  along  with  its 
associated  v,  h,  a mappings. 


delete  : -*■ 

The  execution  of  delete(n)  returns  a node  n € and  generates 

the  state  which  is  defined  in  terms  of  as  follows: 


“in  ■ “i  - f"’ 

Vf^l (m)  = v^(m),  V m fc 
hi_^l(m)  - h^(m),  V m € 
a^^j^(m,k)  - a^(m,k),  V m € 

(delete  removes  a node  from  the  nodeset  of  the  h-graph) 


TABLE  2 


GRAPH  ACCESSING  PRIMITIVES 

padj  : N X G -*■  2^ 

The  execution  of  padj(n,g)  returns  the  set  of  nodes  that  terminates 
an  outgoing  arc  from  node  n in  graph  g defined  by 
{m  € nodes(g)  ] (n,m)  € arcs(g)) 

nadj  : N x G 2*^ 

The  execution  of  nadj(n,g)  returns  the  set  of  nodes  that  begins 
an  incoming  arc  to  node  n in  graph  g defined  by 

{m  € nodes(g)  | (m,n)  € arcs(g)} 

TABLE  3 

LIST  CONSTRUCTION  PRIMITIVES 

push  : L X N > L 

The  execution  of  push(i,n)  returns  the  list  C'  which  is  defined 
by 

nodes  (£')  = nodes  (£)  U (n) 
arcs  (£')  = arcs  (£)  U {n,n^(£)} 
n^(£  ' ) •=  n 

- n 

(push  adds  a node  and  its  associated  arc  to  the  beginning  of  the 
list  and  returns  the  list) 

The  execution  of  push(£,n)  where  £ is  the  empty  list,  returns 
the  list  l'  which  is  defined  by 
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nodes  (!■')  = n 
arcs  (2.')  “ 0 

n^(2 ' ) = n 

•=  n 


pop  : L -*■  L 


The  execution  of  pop(£.)  returns  the  list  2.'  which  is  defined  hy 
nodes  (2')  = nodes  (2)  - {n^(2)} 

arcs  (2')  = arcs  (2)  - {(n^(2),in)  | m € nodes  (2)) 

n^(2')  = (m  I m € nodes  (2)  a {n^(2),m)}  € arcs  (2)) 


n^2’) 


n^2) 


(pop  removes  the  first  node  of  the  list  along  with  its  associated 
arc  and  returns  the  list) 

The  execution  of  pop(2)  , where  2 is  a list  containing  one  node, 
returns  the  list  2'  which  is  defined  by 
nodes  (2 ' ) =0 
arcs  (2')  = 0 

= 0 


r/(2') 


n‘^(2')  = 0 


append  ; L x N -*■  L 

The  execution  of  append(2,n)  returns  the  list  2'  which  is  de- 
fined by 

nodes  (2')  = nodes  (2)  U (n) 
arcs  (2')  = arcs  (2)  U (n  (2),n) 


n^2') 

n^(2*) 


n^2) 


(append  adds  a node  and  its  associated  arc  to  the  beginning  of  the 


list  and  returns  the  list) 
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The  execution  of  append(l,n)  , where  i Is  the  empty  list,  re- 
turns the  list  I'  which  is  defined  by 
nodes  (£ ' ) » n 
arcs  (£.')  « 0 

n^(£’)  - n 

n^  (£ ' ) - n 

list  : N L 

The  execution  of  list(n)  returns  the  list  £'  which  is  defined 
by 

nodes  (£')  » n 
arcs  (£  ' ) (J 
n (£  ’ ) = n 

n^ (£  ' ) = n 

(list  builds  a list  for  the  node  n ) 


12 


TABLE  4 

LIST  ACCESSING  PRIMITIVES 

last  : L -*■  n 

The  execution  of  last(^)  returns  the  last  node  of  the  list  £, 
i.e.,  the  node  which  has  no  outgoing  arc  emanating  from  it,  defined  by 
n\i) 


next  : N X L > n 

The  execution  of  next(n,i)  returns  the  node  of  list  i which  has 

an  incoming  arc  that  emanates  from  node  n .defined  by 

£ 

B I (n,m)  6 arcs  (t)  a n n 


item  : I x L <■  n 

The  execution  of  item(i,i)  returns  the  ith  node  in  the  list  i , 
defined  by 


j next (next (. . .nex^(n  , £) , 


i 


CHAPTER  II 


■K 


SIMPL-T  (BASIC  VERSION)  | 

1 . SIMPL-T  Syntax 

The  language  being  modeled  in  this  section  of  the  paper  is 
the  basic  version  of  SIMPL-T.  It  recognizes  data  only  of  type  integer. 

This  data  is  stored  either  in  an  Integer  variable  or  in  a one-dimensional 
integer  array  which  is  defined  as  an  ordered  collection  of  elements. 

These  elements  are  numbered  0,1,..., n-1  where  n is  the  number  of  ele- 
ments in  the  array,  as  declared  by  the  user  at  compile  time. 

These  data  configurations  appear  as  terms  of  a SlMPL-T  expression.  I 

i 

In  its  simplest  form  the  expression  is  a simple  variable  (e.g.,  x) , or 
an  element  of  an  Integer  array  (e.g.,  A(l)).  It  may  also  take  the  form 

of  a function  (e.g.,  fact(x)  ),  or  a primitive  operation  (e.g.,  a+b , j 

a<b,  — la  ) , or  a combination  of  both.  In  each  of  these  cases  the  expres- 
sion Itself  represents  a value  which  must  be  computed  by  the  program  at 
execution  time. 

I 

The  program  itself  consists  of  a set  of  global  variables,  a set  of 
functions,  and  a non-empty  set  of  procedures,  one  of  which  is  designated 
as  the  starting  procedure.  The  global  variables  are  integer  variables 
and  arrays  that  are  known  to  all  segments  (functions  and  procedures)  of 

I 

the  program.  If  the  value  of  this  global  variable  is  not  initialized  I 

by  the  program,  it  is  undefined  when  execution  of  the  program  begins.  i 

SIMPL-T  is  a structured  programming  language  whose  flow  of  control 

j 

is  governed  by  the  execution  of  its  procedures  and  functions.  It  is  j 

I 

therefore  necessary  to  examine  these  basic  building  blocks  in  some  de-  j 

tall.  j 
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A procedure  is  defined  by  a set  of  formal  parameters,  a set  of 
local  variables,  and  a sequence  of  statements.  When  the  procedure  is 
invoked,  the  actual  parameters  supplied  by  the  user  are  passed  to  the 
procedure,  and  the  sequence  of  statements  is  executed.  Control  then  re- 
turns to  the  caller.  The  user  may  choose  to  Include  a RETURN  as  the 
last  statement  in  the  sequence.  It,  however,  has  no  effect  on  the  exe- 
cution of  the  procedure. 

A function  is  similar  to  a procedure  in  that  it  uses  its  parameters 
and  local  variables,  together  with  the  global  variables  known  to  the 
program,  to  execute  its  specified  sequence  of  statements.  It  differs 
in  that  upon  execution  it  returns  the  value  of  the  expression  specified 
in  the  RETURN  statement.  This  expression  and  the  function  itself  must 
both  be  of  type  Integer.  The  function  RETURN,  unlike  the  procedure 
RETURN,  is  a required  statement  which  must  appear  as  the  last  statement 
of  a function.  Both  procedures  and  functions  may  be  recursive. 

The  execution  of  a program  has  been  defined  as  a sequence  of  states. 
It  is  the  execution  of  the  statements  of  a segment  that  causes  these 
state  transitions  to  be  made.  A description  of  the  SIMPI.-T  statements 
follows : 

a)  The  assignment  statement  assigns  the  value  of  an  expression  to  a 
variable . 

b)  The  IF  statement  causes  the  conditional  execution  of  a sequence 

of  one  or  more  statements.  The  expression  is  evaluated  at  execution 
time  and  the  appropriate  action  is  determined.  If  the  conditional 
expression  is  found  to  be  true  (?*0) , the  THEN  portion  of  the  state- 
ment is  executed,  otherwise  execution  continues  with  the  ELSE  por- 


tion (if  it  exists). 
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c)  The  WHILE  statement  provides  a means  of  writing  Iterative  code.  As 
long  as  the  value  of  the  conditional  expression  is  non-zero,  the 
designated  statement  list  is  executed.  If  its  value  is  zero,  exe- 
cution continues  with  the  statement  following  the  WHILE. 

d)  The  CASE  statement  provides  for  the  execution  of  one  of  a group  of 
statements.  The  value  of  the  conditional  expression  is  evaluated  at 
execution  time  and  its  value  is  matched  against  the  value  assigned 
to  each  statement  in  the  group.  When  a match  is  found,  the  corre- 
sponding statement  is  chosen  for  execution.  If  no  match  occurs,  the 
statement  referenced  by  ELSE  is  chosen  (if  it  exists). 

e)  The  CAI.L  statement  causes  a specified  procedure  to  be  executed.  It 
passes  a list  of  arguments  (actual  parameters)  to  the  procedure. 

These  arguments  must  agree  in  number  and  type  with  the  formal  para- 
meters defined  by  the  procedure  Itself.  Upon  completion  of  the  pro- 
cedure, execution  resumes  with  the  statement  following  the  CALL  state- 
ment . 

f)  The  RETURN  statement  signifies  the  end  of  a procedure  or  function. 

In  the  case  of  a function,  it  designates  the  expression  whose  value 
is  to  be  returned. 

For  a more  detailed  discussion  of  the  language  features  SlMPI.-l, 
consult  the  SIMPL-T  manual  [3]  (pp.  3-17). 

2 . H-Graph  Syntax 

With  this  Introduction  to  SlMPL-T  complete,  h-graph  syntax  for  the 
language  can  now  be  described.  The  basic  unit  of  Information  in  the 
model  is  a variable.  It  is  represented  by  a node  which  has  associated 
with  it  a value,  a graph,  and  a set  of  attributes.  The  attributes  re- 
main constant  throughout  the  execution  of  the  program  but  the  value  of 
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the  variable  may  change  at  any  time  merely  by  modifying  the  v mapping 
associated  with  the  node. 

Variables  may  be  linked  together  in  list  form  to  create  a one-dimen- 
sional array.  This  array  is  represented  by  a node  whose  graph  consists 
of  nodes  representing  the  individual  elements  of  the  array.  The  number 
of  elements  in  the  array  and  the  type  of  the  array,  together  with  other 
identifying  characteristics  are  reflected  in  the  attributes  associated 
with  the  array.  At  the  same  time,  each  element  of  the  array  retains  its 
own  value,  graph,  and  attributes,  as  described  above. 

In  addition  to  the  simple  variable  and  simple  array  Just  described, 
the  recursive  variable  and  recursive  array  are  necessary  for  the  imple- 
mentation of  this  model.  Simple  variables  are  Joined  together  in  a list 
structure  to  form  a recursive  variable;  simple  arrays  are  Joined  to- 
gether to  form  a recursive  array.  The  use  of  this  additional  form  of 
data  will  be  made  clear  when  procedures  are  discussed. 

The  syntax  for  an  expression  is  defined  either  as  an  operation  node 
or  as  a node  containing  a variable  node.  The  operation  node  in  turn 
translates  into  an  operator  followed  by  a list  of  operands.  The  operands 
are  themselves  expressions.  It  is  because  a variable  node  eventually 
appears  in  the  operand  list  associated  with  the  operator,  and  because 
the  elements  of  the  operand  list  must  be  unique,  that  we  nest  the  vari- 
able node  in  an  additional  node.  This  then  permits  us,  for  example,  to 
add  the  variable  x to  itself.  The  graph  of  the  expression  would 
look  like  [add ) -►  [[x]  ♦ [x]]  . 

The  graph  of  the  program  node  is  defined  as  a set  of  global  vari- 
ables (i.e.,  simple  variables  and  simple  arrays),  a set  of  functions, 
and  a non-empty  set  of  procedures,  one  of  which  is  designated  as  the 


entry  node  of  the  graph.  The  procedure  node  consists  of  a parameter 
list,  a set  of  locals,  and  a statement  list.  These  parameters  and 
local  variables  describe  nodes  which  pertain  only  to  a particular  pro- 
cedure at  a particular  point  in  time.  In  order  to  preserve  the  integ- 
rity of  the  procedure  at  each  nested  level  of  recursion,  every  one  of 
the  variables  (both  local  and  parameter)  is  stored  in  its  own  stack  as 
a recursive  variable  or  array.  The  description  of  the  actual  execution 
of  the  procedure  is  reserved  for  the  section  which  deals  with  the  seman- 
tics of  the  model. 

A function  is  similar  to  a procedure  In  that  its  graph  contains  a 
parameter  list,  a set  of  locals,  and  a statement  list.  In  addition, 
however,  its  graph  contains  a node  representing  the  return  expression. 

It  is  here  that  the  evaluated  expression  that  is  returned  by  the  function 
is  to  be  stored.  The  evaluated  expression  and  the  function  Itself  must 
both  be  of  type  integer. 

The  list  of  statements  forms  the  major  portion  of  both  the  proced- 
ure and  function  nodes.  Three  of  the  statements  in  this  model,  namely  the 
CALL,  assignment,  and  RETURN  statements  are  treated  as  operations  con- 
sisting of  a semantic  operator  followed  by  a list  of  operands.  The  re- 
maining three  statements,  namely  the  IF,  CASE,  and  WHILE  statements  are 
represented  by  a node  whose  graph  must  be  traversed  at  execution  time. 

The  value  that  results  from  the  evaluation  of  the  entry  node  of  the 
graph  determines  the  path  of  traversal. 

BNF  Notation 

The  notation  used  to  describe  the  h-graph  syntax  is  an  extension  to 
BNF  notation.  The  following  extensions  are  defined: 
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a)  <a>  ::  - [<b>]  I [<£>] 

<a>  is  defined  as  (1)  [<b>],  a node  whose  h value  is  given 

by  <b>; 

(2)  I<£>]  , a node  whose  v value  is  given 
by  <c>. 


b) 


c) 


d) 


<f> 


<h> 


<h> 


<f> 


(I.e 


<h> 


[<g>];  att^  = val^ att^^  = val^  | [<d>] 

is  defined  as  (1)  a node  whose  h value  is  given  by  <g> 

and  whose  a.  value  is  given  by  val . 

for  all  attributes  a.  associated  with 

1 

the  node; 

(2)  a node  whose  h value  is  given  by  <d> 
and  which  has  no  attributes  associated 
with  it 

, I has  precedence  over  ; ) 

* <i> 

<i>  i <k> 

is  defined  as  a directed  graph  from  an  element  of  class 
to  an  element  of  class  <k'  with  a directed  arc  from  ^ i> 
to  <k>  whose  label  is  an  element  of  <j>  • The  entry 

node  of  the  graph  is  <i>  . 

* 

<i>  + <k> 


<h>  is  defined  either  as  a directed  graph  or  as  a list  from  an 
element  of  class  <i>  to  an  element  of  class  <k>  . The 

entry  node  of  the  graph  is  <i>  . 

* 

e)  <a>  = (<m^>,...,  <m^> 

<i>  may  be  defined  as  a node  whose  h value  is  a graph  with 


1 
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It  should  be  noted  that  the  model  syntax  guarantees  the  uniqueness 
of  variables  passed  as  arguments  to  a procedure  or  function  by  virtue  of 
the  fact  that  the  nodes  of  a list  must  be  distinct.  It  Is  not  desirous, 
however,  to  place  this  uniqueness  restriction  upon  the  variables  appear- 
ing in  an  operand  list.  For  this  reason,  each  variable  in  the  operand 
list  is  nested  in  an  expression  variable  node.  Although  the  expression 
variables  themselves  are  distinct,  the  variables  nested  within  them  need 
not  be  unique. 

For  example: 

Non-unique  variable  may  be  added  together  as  follows 
[add]  * [[x]  > [x]] 

but  unique  arguments  are  passed  by  a CAM,  statement  as  follows 
[call  1 * [PROCA  ► [x-yj] 

Shorthand  Notation : 

Due  to  the  extensive  use  of  operations  throughout  this  paper,  a 
shorthand  form  of  the  h-graph  notation  has  been  adopted: 

[name]  *■  [<x  > *■  ‘■Xt>  <x  >] 

1 i n 

will  be  written  as 
name  (<Xj^>,  <X2>,  ...  , 

Some  additional  abbreviations  are  defined  on  p.  10. 


Data 

Variables 


VI 

<variable>  : : 

* <simple  var>  | <rec  var> 

V2 

<slmple  var>  : 

: : » <lnteger  var> 

V3 

<lnteger  var> 

::  « [<integer>];  class=»'data' ,type= 

' Integer ’ , 

structure=' scalar' 

, form* 'simple 

jSL:. 
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[undefined] ; class= ' data ' , type= ' Integer ' , 

structure^ 'scalar ' , form»» ' simple  ' 

example 

<lnteger  var> 

Int  I c las s=  'data'  , type=^  'Integer  ' , 

I j structure^ ' scalar ' , f orm= 'simple ' 

VA  <rec  var>  : : = <rec  lnteger> 

A 11 

V5  <rec  Integer?  ::  = [<lnteger  var>  {-^<integer  var>)  ]; class' ' data ' , 

o 

type= 'integer ' .structure^ 'scalar' , form= ' rec ' 


Arrays 

A1  <array>  ::  = <slmple  array?  ( <rec  array? 

A2  <simple  array?  ::  = <integer  array? 

A3  <integer  array?  ::  = [<lnteger  var?  (>< integer  var  ■ >^ [ ;c lass'  'data  ' , 

type=  ' Integer ' .structure' ' array ' , f onn= ' simple ' , 
array  size' ns  ize  (li  (<  integer  array) ) 


example 

<integer  array? 
Int  array  A(3) 


* 

class''data' , typc= ' integer ' , 

class' 'data' , class'' data' . 

structure='scalar' . 

form-'slmple'  ' 

>1 

1 


class' 'data ' , type' 'integer  ' , 
structure'' array ' .form' 'simple' 
arrayslze'3 
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A4  <rec  array>  : : = <rec  Integer  array> 

* ^ n I 

A3  <rec  Integer  array>  ::  “ (<integer  arrays  <integer  array>)^j; 

class= ' dat a ' , type»' integer' . structure^ ' array ' , 
f onn= ' rec ' , amyslze“nslze  (h  (<rec  integer 
array>) ) 


Expressions 

El  <expr>  ::  = <operat ion>  | <re f predicate>  i [ '^variablo] ; 
class= ' exprvariable ' 

/*  A variable  is  nested  within  an  outer  node  so  that  the 
variable  can  be  repeated  in  the  operand  list  - denoted 
by  class= ' exprvariable ' */ 

example 
(a)  <expr> 

[<variable>] ; class- 'exprvariable' 


I 

class^ ' dat a ' , 

typc=' integer' , 

j 

structurc-'scalar'  , 

form= ' simple ' 

class= 'exprvariable' 


0£ 

01 

02 


erat ions 

<operation>  ::  = <primitive  operation> | <user  operation> 

* 

<primitive  operation>  ::  = [<operator>  *<operand  list>J; 

class= 'operation ' 

<operand  list>  ::  = [<opcrand>  {><operand> }^ ] 


04  <operand> 


<expr> 
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05  <operator>  ::  = <primltive  binary  function^ ; form= ' binary ' , 

category^*’ primitive’  ] 

^primitive  unary  f unction> ; form= ' unary ' , 
category= ' primitive ' 

06  <primitive  binary  function>  ::  = <binary  Integer  function>; 

• optype= ' integer ' | 

<binary  relational  functlon> ;optype= ' rel ' | 

'binary  logical  fiinct  ion>  ;optypo=  'log' 

07  <binary  Integer  function>  = [add] | [sub] | [mult ] | [dlv  ] | [iis  ] | [ £cs  ] 

[r fcs ] I [ ras ] | [bit  and] | [bitor ] | [bitxor] 

08  <binary  relational  function>  ::  = [it ] | [it] | [ge ] | [ gt ] | [ e ; ] | [ne ] 

09  <binary  logical  function>  ::  » [and] | [or] 

010  <primitive  unary  fvinction>  ::  = <unary  integer  functlon>; 

optype= ' i n t e ge  r ' ( 

<unary  logical  funct ion> ; optype= 'log' 

011  <unary  integer  function^  ::  = [minus ] | [comp ] 

012  <unary  logical  function>  ::  = [not ] 


example 


(b)  <expr> 

<primltive  operation^ 


class= ' operation ' 


1 
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Functions 

P5  <func  def>  ::  = [<formal  parlist> , <loclist> , <stat  list>*,<ret  var>]; 


class=  'proj>ram’  , type=<tvpename> 


2=  ’ func ' 


P6  <typename>  = 'integer' 

P7  <ret  var>  = <simple  var> ; role= ' return ' 

P8  <formal  parlist>  ::  = [<par>  \ par  • class= ' par list ' | [ ]; 


P9  <par>  ::  = <rec  var>;( 


class= ' parlist ' 

3lltype=<callname> | <rec  arrays; 
calltype= ' reference ' 


PIO  <callname>  = 'value' I ' reference' 


PH  <loclist>  = [<loc>  { *-<loc>  ; class=  ' loclist ' | [ ] ; c las s=  ' loci  1st ' 

P12  <loc>  ::  = <rec  var>|<rec  array> 


Statements 

A n 

51  <stat  list>  = [<stat>  {->-<stat>  }^] ; class= ' program' 

52  <stat>  ::  » <lf  stmt>|<while  stmt> | <case  stmt> | <assign  stmt> 

<call  stmt> j <return  stmt> 

53  <call  stmt>  ::  » [<call  operation>] ; class= ' operation ' 

54  <asslgn  stmt>  = [<asslgn  operation> ] ;class='operat ion ' 


, ,,  *Ji<stat  ]ist>vi 

<lf  stmt>  = [<convert  predicate>.' i^<end>];cl 

^'^{<stat  llst>)i^  ~ 


ass=  program 


S6  <convert  predicate>  ::  = [<convert  operation> ] ; class° ' operat ion ' 


general  <if  stmt> 


class’ 


program' 
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^ ir~  ^ j,  *i_:>.<stat  list>n 

> :;  = ^<convert  predlcate><^[[^  b 

0^  end>  -* 


class* ' program' 
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S13  <ip>  ::  = <variable> I <ref  predicate> 
example 

<assign  stmt> 


FOUND  : = 1 where  FOUND  is  defined  as  an  <integer  var> 


class= 

' operation' 


SIA  <call  operatlon>  ::  = call(<proc  de f > , <arg  1 ist 

/*  [call]  ‘ [<proc  def > »<arg  1 ist>  ] */ 

515  <arglist'  ::  = [<arg>  {»<arg>}^]  | ( ) 

516  <arg>  ::  = <array> | <operat ion> | <ref  pred icate> [ <vai lab Le> 

/*  Tlie  arguments  in  <in  arglisL  must  be  unique,  that  is,  an  argu- 
ment may  not  appear  in  the  list  mure  than  once.  Therefore, 
the  variable  node  need  not  be  reduced  another  level  */ 

517  <convert  operation^  ::  = convert  (<expr  > ) /*  [^nvert]  ' [<expr>]  */ 

518  <return  operation>  ::  = ret urn ( ) /*  procedure  return 

[return]  " [ ] */  | 

519  <f return  operation>  ::  = f return (<expr> ) /*  function  return  i 

[ f_r_e^tu_rjt  ] * [<expr>]  */ 


S20  <end>  : : = [no-op ] 

Semantic  Operations 

★ 

FI  <semantlc  operation>  ::  = [<seniantic  operator>  ^semantic  operand  llst>); 
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F3  <semantic  functlon>  ::  = [assign] | [call] | [convert] | [calculate] | 

[return] j [ f return] j [eval] j [ f call] | [ref] | [ leveleval ] 1 [ addlevel ] j 
[ Installpar ] | [evalargs] | [ valuenode ] | [ refnode ] | [bulldbuffer ] | 

[ Installargs ] | [ pushpar ] [ [parattr ] [ [ Installocals] | [ Installoc] | 
[pushloc] I [ Installocarray ] | [ locattr ] | [ releaselocs ] | [releasepars] I 
[release] ] [popstack] j [pass ] 

Ar 

F4  <semantic  operand  list>  ::  = [<semantic  operand^  { *-<seinantic  «perand>}^] 

1 [ ] 

F5  <semnntic  operand>  ::  = <expr> ] <var iable> [ ^segment  def> 

<semantic  opcrat ion> ] <formal  pari ist> ] <locl ist> ]<arglist> 

An  example  of  a program  which  consists  of  three  global  variables  and 

a single  procedure  follows: 

Int  I = -1,  FOUND  = 0 
int  array  A(3)  = (2,5,5) 
proc  F1ND5 

while  I < 2 ^ 1 :=  1+1 

if  A(I)  = 5 then  FOUND  :=  1 end 

end 

start  FIND5 


c 1 ass= 'program' 
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3.  Semantic  Functions 

The  semantics  of  a programming  language  are  defined  as  a set  of  se- 
mantic functions  over  an  Instruction  set  consisting  of  the  state  transi- 
tion primitives,  the  graph  structure  construction  and  accessing  primi- 
tives, and  some  mathematical  primitives.  Some  of  these  semantic  routines 
specify  the  sequence  of  control  and  are  called  control  functions,  where- 
as others  define  the  meaning  of  the  language  components  (e.g.,  procedures) 
relative  to  one  another.  These  are  called  component  functions.  The  con- 
trol functions  define  a mechanism  whlcli  permits  the  execution  of  the  com- 
ponent functions. 

At  the  time  of  execution  of  these  functions,  it  is  assumed  that  com- 
pile-time syntax  checking  is  complete  and  that  the  arguments  satisfy  the 
conditions  which  make  them  valid  for  use  by  the  routines.  These  assump- 
tions are  enumerated  in  the  brackets  ^ | that  precede  t)ie  instruction  set 
of  the  semantic  functions. 

The  control  functions  execute,  traverse,  nextnode  are  now  defined. 

The  definition  of  the  component  functions  will  follow. 
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Shorthand  Notation 

The  following  abbreviations  are  used  by  the  semantic  functions: 
elt  (set)  /*  any  element  from  a set  */ 
size  (set)  /*  the  number  of  elements  in  the  set  */ 
nsize  (h(node))  /*  the  number  of  elements  in  h(node)  */ 

*node  = entry  (h(node))  /*  the  entry  node  of  the  graph  associated  with 

a node  */ 

a(node)  » {att^(node)}  /*  the  set  of  attributes  of  'node'  */ 
operl(node)  * *next (*node,h(node))  /*  the  first  operand  node  of  the 

operand  list  node  associated  with  'node'  */ 


i 


oper2(node)  = 


oper3(node)  = 


operACjaode)  = 


pars (segment) 


next  (operl (node) ,h(next (*node,h(node) ) ) /*  the  second 

operand  node  of  the  operand  list  node  associated  with 
'node ' . */ 

next  (oper2 (node) ,h (next (*node ,h(node) ) ) /*  the  third 

operand  node  ...  */ 

next  (oper3(node) ,h(next (*node,h (node) ) ) /*  the  fourth 

operand  node  ...  */ 

* X I X C.  nodes  (h  (segment))  A class(x)  = 'par  list' 

/*  the  parameter  list  of  the  segment  definition 
'segment'  */ 


CONTROL  FUNCTIONS 
/*  Execute 

A single  node  is  passed  to  this  routine  and  the  value  resulting 
from  its  execution  is  returned.  The  manner  in  which  the  node  is  actually 
executed  depends  on  the  composition  of  the  node  itself.  If  the  node  refers 
to  a single  function  (in  whicli  case  its  class  attribute  would  be  'opera- 
tion'), the  contents  of  the  node  are  evaluated  by  the  component  function 
eval  and  the  execution  of  the  node  is  considered  complete.  If,  however, 
the  node  refers  to  a graph  containing  a sequence  of  nodes  (in  which  case 
its  class  attribute  would  be  'program'),  additional  control  functions  must 
be  utilized  before  the  execute  function  is  able  to  return  a value.  The 
traverse  function  provides  the  means  for  moving  along  the  graph  described 
by  the  node  to  be  executed.  */ 

(1)  execute  (node)  “ 

fclass(node)  = 'operation'  v class(node)  » 'program'^ 
class(node)  = 'operation'  ^ oval (node) 
class(node)  'program'  ^ traverse (*node ,node) 


32 


/*  Traverse  Is  a recursive  procedure  which  controls  the  path  of  traversal 
through  a graph.  It  calls  for  the  execution  of  the  node  'current  node' 
(via  the  execute  function)  and  uses  the  value  of  the  node  returned  by 
its  execution  to  calculate  the  next  node  in  the  graph  (via  the  nextnode 
function).  Traverse  then  examines  this  new  'current  node'.  If  it  is  a 
data  node,  we  know  that  the  previous  node  had  been  the  last  executable 
node  (see  line  (c)  of  nextnode) . The  new  node  is  returned  and  the 
traverse  function  terminates  at  this  point.  If  the  new  node  indicates, 
by  way  of  a message  generated  by  the  execution  of  the  previous  node, 
that  a function's  RETURN  statement  had  been  encountered  (l.e.,  if 
\<current  node)  = f return) , traverse  stores  the  value  of  the  RETURN  ex- 
pression in  the  graph  of  the  function  definition. 

If  neither  of  these  above  conditions  has  been  met,  traverse  calls 
itself  recursively  to  calculate  the  next  node  in  the  path  and  then  sub- 
jects the  new  'current  node'  to  the  checks  described  above.  */ 

(2)  traverse  (current  node,  nodeset)  = 

class  (current  node)  = 'data'v  ? 

(v  (current  node)  = freturn  a segtype  (nodeset)  = 'func'  a ^ 
type  (x I role (x)  = ' return ' a x £ nodes (h (nodeset ))) “type  ^ 
(*current  node)  a type  (*current  node)=type (nodeset) ) ^ 


/* 

type  of  RETURN  expression  “ 

type 

class 

(current  node)  = ' 

program'  v 

class 

(current  node)  = ' 

operation' 

class 

(current  node)  = ' 

data'  ^ current 

traversal  */ 

class 

(current  node)  “ ' 

return'  =» 

assign  (x|role(x) 

“ 'return' 

A X 

current  node) 
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/*  store  value  of  RETURN  expression  in  the  graph  of  the  func- 
tion definition  */ 

class  (current  node)  = 'program'  V class  (current  node)  = 

' operation ' 

traverse  (nextnode  (execute  (current  node),  current  node, 
nodeset),  nodeset)  /*  continue  traversal  */ 

/*  Nextnode  examines  the  previous  node  ('lastnode')  and  the  node  con- 
taining the  value  resulting  from  the  previous  node's  execution  ('lastnode- 
value').  If  the  previous  node  had  been  a function  RETURN  statement 
(line  b),  a message  to  this  effect  is  sent  back  to  traverse . If  the 
previous  node  had  been  any  other  terminal  node  (line  c)  , the  traversal 
of  the  graph  is  complete,  and  the  previous  node  is  passed  back  to  the 
traverse  function.  If  the  last  node  executed  had  not  been  a terminal 
node  and  had  had  one  arc  directed  to  the  next  node  (line  d) , this  new 
node  is  returned  to  traverse . If,  hor^ever,  more  than  one  arc  had  ema- 
nated from  the  last  node  executed,  the  arc  label  mus.  be  matched  against 
the  value  resulting  from  the  execution  of  tlie  prevlotis  node  (line  e,f). 
When  a unique  match  is  found,  the  next  node  to  be  examined  is  returned 
to  traverse.  */ 


(3)  nextnode  (lastnodevalue,  lastnode,  nodeset)  = 

IV  (lastnodevalue)  = undefined  V 

V (lastnodevalue)  = fnturn  A size  (padj  (last  node , 
h (nodeset )) ) » 0 v 

/*  RETURN  appears  as  last  statement  in  the  graph  */ 
0 s size  (padj (1 astnode ,h (nodeset )) ) s 1 

/*  0 or  1 successors  */  V 


((Q^)  C (lastnode, h(nodeset) ) a e (lastnode, x )* 

h (nodeset ) 

V (lastnodevalue)  /*mal.ching  arc  label  for  IF,  WHILE, 

CASE  statements*/  V 
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Qt)  X € padj (lastnode,h(nodeset) ) ^ e (lastnode) ,x) = ' else ' ) _ 

h(nodeset) 

^ size (padj (las tnode ,h (nodeset ) ) ] e ( las t node ,x)“ 

h(nodeset) 

V (lastnodevalue)  V e(lastnode,x)='else' )=1) 
h(nodeset) 

/*only  one  match  exists*/ 

5 

/*  (a)  pass  on  error  message  */ 

V (lastnodevalue)  = undefined  =»  lastnodevalue 

/*  (b)  pass  on  return  message  */ 

V (lastnodevalue)  = freturn  =>  lastnodevalue 

/*  (c)  no  arcs  emanating  from  lastnode,  indicating  that  it  was  the  last 

executable  node  in  the  graph  - pass  on  its  value  */ 

size  (padj (lastnode, h(nodeset)) )=0  =»  define  (x | class (x) =' data' , 
V (x)=v (lastnodevalue) ) 

/*  (d)  return  the  one  successor  to  lastnode  in  the  graph  */ 

size  (padj (lastnode ,h (nodeset) ) ) = 1 =»  elt (padj (lastnode , 
h(nodeset))) 

/*  (e)  choose  the  appropriate  node  from  among  the  multiple  successors 

to  lastnode  (applies  to  IF,  WHILE,  CASE  statements).  t (lota) 

denotes  a 'choose'  function  which  selects  the  unique  value  for 

which  the  condition  is  true.  */ 

(2i  x)(x  £ padj  (las tnode ,h (nodeset ) ) a e (lastnode, x)  = 

h (ncdcset) 

v(lastnodevalue) ) =» 

(ix)(xg  padj  (lastnode ,h (nodeset) ) a ^ (lastnode, x)  = 

h(nodeset) 

v(lastnodevalue) ) 

/*  (f)  choose  the  node  from  among  the  successors  to  lastnode  whose  arc 

label  is  'else'  (applies  to  CASE  statement)  */ 

Gi  x)  Cx€  padj  (lastnode ,h (nodeset) ) a e (lastnode, x)  = 

h(nodeset) 

'else')  => 


L 
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(\x)  (xg  padj  (lastnode,h(nodeset) ) a t:  (lastnode.x)  - 

h(nodeset) 

' else ' ) 

An  examp'le  might  be  of  help  in  understanding  the  flow  of  control 
dictated  by  the  functions  defined  above.  Using  the  program  described  on 
page  28  for  tliis  purpose,  the  steps  generated  by  the  execute  command 
will  be  described  in  detail,  beginning  at  the  point  where  1=1. 

The  procedure  FIND5  is  examined  by  the  execute  routine  and  is 
found  to  have  class  = 'program'  . The  nodes  of  the  procedure  must 
therefore  be  traversed,  beginning  with  NT,  the  UHIhE  statement.  The 


conditional  expression  (1  ■ 2)  is  evaluated  and  is  found  to  be  true  (i.e., 
1).  The  nextnode  routine  matches  tills  value  1 against  the  edge  labels 
emanating  from  N1  and  determines  that  the  next  node  to  be  traversed  must 
be  N3,  a statement  list.  This  statement  list  must  Itself  he  traversed, 
beginning  with  the  assignment  statement  In  N4.  Upon  completion  of  the 
assignment,  nextnode  determines  the  next  nod>'  in  the  p.ith  ol  traversal. 
Only  one  arc  emanates  from  N4  and  so  the  next  node  must  therefore  be  N6, 
the  IF  statement.  The  conditional  expression  (A(l)  = 5)  is  evaluated 
and  is  found  to  be  true  (1).  by  matching  tlie  edge  labels  against  this 
value,  nextnode  determines  that  N9,  the  statement  list  associated  with 
the  IF  is  next.  The  assignment  is  m.ide  and  nextnode  again  Is  called  to 


find  the  next  step.  No  now  node  can  be  found  and  a data  node  is  returned 
to  signal  the  end  of  the  statement  list  contained  in  N9 . Likewise,  no 
new  node  can  be  found  to  follow  N9  and  the  data  node  is  returned  to 
signal  the  end  of  the  IF  statement  in  Nb.  Again  next  node  is  called  to 
continue  the  traversal  of  tlie  statement  list  associated  with  the  WHILE 
statement  (N3),  but  no  node  can  be  found  to  follow  N6.  The 
traversal  of  N3  Is  said  to  be  complete.  One  arc  emanates  from  this  node. 


36 


and  nextnode  therefore  chooses  N1  to  be  the  next  node  in  the  path.  The 
WHILE  loop  will  be  entered  once  again. 

The  value  of  I is  now  2,  however,  and  the  conditional  expression 
(1  ^ 2)  is  found  to  be  false  (i.e.,  0).  Hie  next  node  in  the  path  is  de- 
termined to  be  Nil  by  the  nextnode  routine.  Traverse  returns  a data 
node,  and  the  execution  of  the  procedure  FINDS  is  complete. 


Example 

where  1=1 

P refers  to  the  procedure  FINDS 
© refers  to  a node  whose  value  is  1,  © to  a node  whose  value 
is  0 

refers  to  the  expression  variable  whose  variable  node  has 
a value  of  1 

POUND  data  refers  to  a data  node  whose  value  is  the  value  of 
FOUND 


ex  = execute 


ex  P = ^(N1,P) 

= tr (nn (ex(Nl),Nl,P),P) 
eval(Nl) 
convert (N2) 
nn((^,tJl,P) 

= _y^(N3,P) 

= ^(nn(ex^N3),N3,P),P) 
^(NA,N3) 

t^(nn(ex(NA) ,NA,N3) ,N3) 
eval (NA) 


tr  = t rave  rse 
nn  = nextnode 


assign (I ,NS) 


^(nn(ex(N6]  ,N6,N3),N3) 
^(N7,N6) 

^(im(ex(N7)  ,N7,N6)  ,N6) 
eval (N7 ) 
convert (N8) 
^(nn((^,N7>N6),N6) 
tr( (N9,N6) 


tr(nn(ex(K9),N9,N'6)  ,N6) 
^(N10,N9) 

tr(nn(ex(N10) ,N10,N9) ,N9) 


eval ( NIO) 


assign  (FOUKD 
^(nn( FOUND , N 1 0 , N9 ) . N9 ) 


i^(FOUND  daca,N’9) 

^(mi(FOUND  data,  N9,N6)  ,N6) 

FOUND  data,N6) 
^(nn(FOUND  data,N6,N3)  ,N3) 


lr(FOUND  data,N3) 
tr(rm(FOUND  data,N3,P)  ,P) 
JU(N1,P) 


^(rm(ex(Nl)  ,N1,P)  ,P) 
eval(Nl) 


convert (N2) 


T 
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COMPONENT  FUNCTIONS 
>(  /*  Eval 

A single  parameter  (node)  is  passed  to  this  routine  for  evaluation. 
If  the  node  contains  data,  the  node  is  returned  and  the  evaluation  is 
complete.  If  the  node  is  an  expression  variable  (i.e.,  class(node)  = 

' exprvariable ' ) , it  is  evaluated  by  an  auxiliary  routine  leveleval 
which  examines  the  inner  node  for  data.  If  the  node  represents  an  oper- 
ation, the  action  taken  depends  on  the  type  of  operation  specified. 

An  operator  which  is  in  a category  called  'primitive'  indicates  that 
some  basic  Integer  (comp . add)  or  relational/logical  (ecj^,  not , and) 
operation  is  to  be  performed  on  some  Integer  expresslon(s) . The  node 
whose  operator  is  of  the  category  'function'  is  directed  to  the  f call 
routine  for  further  evaluation.  The  f call  routine  calculates  the  value 
of  the  expression  designated  in  the  RETURN  statement  and  passes  the 
node  containing  this  value  (albeit  encased  in  an  additional  node)  to 
the  eva 1 routine.  The  eval  routine,  in  turn,  passes  this  node  to  its 
user  and  the  evaluation  is  complete. 

All  other  operations  passed  to  this  routine  Involve  the  evaluation 
of  semantic  functions.  The  value  of  the  operator  determines  which  of 
the  routines  described  below  is  to  be  executed.  The  node  returned  by 
the  executing  routine  is  returned  to  eval  which  then  returns  it  to  its 
user. 
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(4)  eval  (node)  «= 

■ cl  ass (node) =' data ' ^ (fonn(node)  = ' rec ' V form(node)  = ' simple ' ) V 
class(node)='exprvariable'  V 

t class (node) =' operat ion ' \ ( (category (*node) =' prim! tive ' 

^ A ( (foim(*node)= 'binary ' 

^ A (optype  (*node)= ' Integer ' v optype(*node)  = 

'rel'  V optype (*node) = ' log ' ) 

A Integerexpr (oper 1 (node) ) =1  a integerexpr(oper2 
(node) )=1) 

V ( form( *node) =' unary ' 

A (opty pe ( *node) = ' i n t eger ' v optype(*node)= 'log' ) 

A Integerexpr (operl (nude) )=!))) 

^ category (*node)= ' function ' 

V (category(*node)= 'semantic  ' a (v(*node)  = 
ass ign  V u (*node)=convert  V 
V ( *node)  - cal  eii  1 a te  V v ( *node ) =<a  1 1 
v(*node)-tel  v y(*node)=return  V 
V ( *iio»ie)  = f re t urn  v v(*node)  = 
leveU  val  V v ( *node ) =addlevel  V 
V ( *node )~installpar  V v(*nodc)= 


evalargs  v v ( *node ) =va 1 uenode  \ 
\>(*node)^rc inode  V v(*riode)»bulld- 

'I'-'J. JiLI  ^ V ( *n ode ) = 1 nst  al  largs  V 
\;(*node)  ^puslipar  V v(*node)“ 
parat t r V v(*node)»instal locals  V 
V (*node)  = lnst  alloc  V v(*node)  = 
push  1 PC  V v(*node)»lnstalloc- 
a rray  V v(*node)«= 
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local tr  V V (*not3e)=releaselocs  V 
V (*node)=releasepars  V v(*node)= 

I 

release  V v (*node)°popstack  V '■ 

V (*node) =pass) ) ) ^ 


/*  node  to  be  evaluated  is  a data  node  */ 
class(node)='data'  ^ 

form(node) = ' rec ' ^ *node 
form(node)  = 'slmple'  node 

/*  node  to  be  evaluated  is  a variable  node  */ 
class (node)= 'exprvarlable ' ^ leve leval (node) 

/*  node  to  be  evaluated  represents  an  operation  */ 
class (node)= ' operat ion ' « 

category (*node)= ' prirait ive ' ^ 
form(*node)= 'binary ' ^ 

V (*node) (eval (ope rl (node) ) ,eval (oper2 (node) ) ) 

/*  where  if  v(*node)=a<y  add (eval (oper 1 (node) ) , 
eval (oper2 (node)) ) 

V (*node)  =sub  ^ svib  (eval  (operl  (node)  ) , 
eval (oper2 (node) ) ) 
etc . * / 

form(*nodc) =' unary ' ^ 

v(*node) (eval (operl (node)  ) ) 

/*  node  to  be  evaluated  represents  a function  call  */ 

category (*node)  = ' fund  ion ' ^ f call (*node , pad  j (*node) .pars (*node) ) 
/*  node  to  be  evaluated  represents  a semantic  function  */ 
category(*node)»'3emantic'  ^ 


v(*node)=assign  =>  assign (operl (node) ,opcr2 (node) ) 
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V (*node) ^convert  ^ convert  (ope rl (node)) 

V (*node)=calculate  =>  calculate (operl (node) ) 

V (*node)=call  call(operl (node) ,oper2(node) , 
pars (operl (node) ) ) 

V (*node)=ref  ^ ref (operl (node) , eval(oper2(node))) 

V (*node)  = retum  ^ return  ( f ]) 

V (*node)=freturn  ^ f return(operl (node) ) 

V (*node)=leveleval  ^ leveleval (operl (node) ) 

V (*node)=addlevel  =>  add  level (operl (node) ) 

^ (*node)=lnstallpar  =»  Ins tallpar (operl (node) . ope r 2 (node) ) 

V (*node)=cvalar>>s  ^ evalar^s  (operl  (node)  ,oper2(node)  , 

operl  (node) ,oper4 (node) ) 

V (*node)=valuenode  ^ valuenodc(operl (node) ) 

V (*node)=refnode  ^ refnodc (operl (node)) 

V (*node)-bul Idbuf  fer  bulldbnf for (operl (node) , 

oper2 (node) ) 

(*node)=^lnstal  larRs  Inst  a liar  rs  (operl  (node)  , 
oper2(node) ,oper3(nodc) ,oper4(node) ) 

(*node) -piisbpar  pushpar (operl (node)  ,oper2(node) ) 

^ (*nodc)=parattr  parattr(opcrl(node)) 

^ (*node)=lnstallocals  -}  Install ocals (operl (node) ) 

(*node)  = lnstal  loc  -»  Instal  loc  (operl  (node)  , oper2  (node)  ) 

^ (*node)=pushloc  pusl'iloc(operl  (node)  ) 

V (*node)=lnstallocarray  ^ Ins t al locarray (operl (node) , 

oper2 (node) , operl (node) ) 

V (*node)°locattr  ^ locatt r (operl (node) ) 


V (*node)=rclcaselocs  ^ relcasclocs (operl (node) ) 


A2 


v(*node)=releasepars  ^ releasepars (operl (node ) ) 

V (*node)=release  =>  re lease (operl (node) .oper2(node)) 
v(*node)=popstack  =»  popstack(operl (node) ) 

V (*node)=pass  =>  pass (operl (node) ) 

/*  This  routine  examines  the  entry  of  the  expression  variable  'node' 
for  data.  It  returns  a data  node  nested  in  an  outer  node  (i.e.,  ex- 
pression variable  node) . */ 

(5)  leveleval  (node)  = 

class(node)='exprvariable'  a ^ 

class(*node)='data'  a (foro(*node)='simple'  ^ / 

form(*node)  = ' rec  ' ) 7 

form(*node) = ' s Imp le ' ^ node  /*  return  expression  variable*/ 
f orm(*node)  = ' rec'  addlevel  (**riodc) 

/*  choose  entry  of  recursive 
variable  and  nest  it  in  an 
expression  variable  */ 


/*  This  routine  guarantees  that  an  expression  is  returned  by  building 
a new  node  around  the  original  node  passed  as  a parameter.  */ 

(6)  addlevel  (node)  • 

define  (x  | class(x)  = ' cxprvarlable ' , h(x)  = llst(node)) 

/*  Assign  evaluates  the  right  part  'rp'  of  the  statement  and  assigns 
its  value  to  the  node  represented  by  ' ip'  . Being  that  rp'  signifies 
an  expression,  llie  inner  node's  value  (namely  v(*eval (rp) ) ) is  used  in 
the  assignment.  */ 

(7)  assign  (ip,rp)  = 


/*  asslgnme?nt  to  Integer  variable  or  Integer  array  element  by 


an  integer  expression  */ 

(Integervarlable (ip)=l  v Integerarrayelement (ip)=l) 
A Integerexpr (rp)=l 


Integervarlable (2p)  = l =»  setv(eval(lp)  ,vi(*eval (rp) ) ) 
Integerarrayelement (ip) =1  setv(*eval (£p) , v (*eval (rp) ) ) 
/*  ref  returns  an  expression  variable  whose  inner 
node  is  assigned  a value  */ 

/*  Ref  uses  the  evaluated  expression  ('var')  as  an  index  into  'array'. 
It  calls  addlevel  to  encase  the  desired  array  element  in  an  expression 
variable  */ 


(8)  ref  (array, var)  = 

itype(*var)=' integer'  /*  index  into  array  is  an  integer  */ 
A structure (array)= ' array ' a (foim(array)='rec' V 
form(array ) = 'simple ' ) 

0 s v(*var)  < arrayslze (array)  = /*  element  lies  within 

bounds  of  array  */ 

form(array )= ' rec ' a addlevel(item(v(*var)  + 1,  h(*array))) 
forrn(array)='simple'  =»  addlevel (item(v (*var ) + 1,  h(array))) 
T a addlevel(define(x|v(x) =undef ined ,class(x)='data'))  /*  error 

condlton  */ 


/*  Convert  evaluates  the  expression  contained  in  'node'  and  returns  a 
node  whose  value  is  1 if  the  condition  is  satisfied  (l.e.,  evaluates 
to  non-zero) , and  0 otherwise  */ 


(9)  convert  (node)  = 

^ (node)”<expr>  ^ 


v(*eval(node))°0  =»  def  ine(x|  v(x)=0) 


V (*eval (node) )#0  m def ine (x | v (x)=l) 
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/*  Calculate  evaluates  the  expression  contained  in  'node'  and  returns  a 
node  whose  value  is  that  of  the  evaluated  expression.  */ 

(10)  calculate  (node)  = 

^ (node)=<expr>  ^ 

define  (x | v (x) =v (*eval (node) ) ) 

/*  The  parameter  list  for  a procedure  return  is  empty.  Being  that  the 
RETURN  statement  is  the  last  statement  of  the  procedure,  it  does  not 
affect  the  flow  of  control  and  no  action  need  be  taken.  */ 

(11)  return  (node)  = 

^ (node)=  [ ] I 
node 


/*  The  pariimeter  list  for  a function  f return  represents  a variable  ex- 
pression. A message  node  is  returned  whose  value  is  f return  and  whose 
graph  correspond  j that  cc  the  evaluated  expression  */ 

(12)  f return  (node)  - 

^ (node)=<expr>  ^ 

define  (x! v^x)  = frcturn,  li  (x)=h (eval (node) ) ) 

/*  This  routine  returns  tlie  value  1 if  'expr'  is  .m  integer  expression 
and  0 otherwise.  */ 

(13)  integerexpr  (expr)  = 

class(expr)='operatlon'  a (optype(*expr)= ' Integer ' 

V optype(*expr)  = 'rel'  V opt ype (*expr )» ' log ' ) 

V typc(*expr)=*' integer ' 1 

T » 0 
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/*  This  routine  returns  the  value  1 if  'node'  is  an  integer  array 
element  and  0 otherwise.  */ 

(14)  In tegerarraye lenient  (node)  * 

class (node)= 'operation ' a v (*node)=ref  a type(oper  l(node))  = 
'integer'  =»  1 
* T =»  0 

/*  This  routine  returns  the  value  1 if  'node'  is  an  integer  variable, 
and  0 otherwise  */ 

(15)  integer variable  (node)  = 

struct ure (node)  = 'scalar ' a type (node)  = ' Integer  ' =»  1 
T =»  0 

/*  Call  executes  the  subprogr.nn  which  is  represented  by  the  list: 
[installpar(args ,pars) ]*  ► [installocals(proc) ] ♦ proc  ► 
[releaselocs (proc) ] ► [roleasepars(proc) ] 

The  list  primitive  append  is  used  to  construct  the  list  */ 

(16)  call  (proc, args, pars)  = 

iproc=<proc  def>  a ? 

args=<arglist>  \ 2 

pars=<formal  parlist>  a pars  C nodes (h (proc) ) 7 

A class(pars)  = 'parllst ' ^ 

execute  (def ine (x | class (x)= ' program ' , h(x)= 

append (append (append (append ( 1 1st ( [ inst  al Ipar (args ,pars ) ])  , 

[ installocals(proc) ]) ,proc) , [ rclcasclocs(proc) ]) , 

[ relcascpars (proc)  ]) ) ) 

/*  The  function  call  routine  f cal 1 executes  the  subprogram  which  is 


represented  by  the  list: 
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[installpar  (args , pars)  ] * -*•  Ilnstallocals  (func)  ] -*■  func 

[releaselocs (func) ] -*  [releasepars (func) ] * [pass (x' role (x)= 

'return'  x.  £ nodes  (h  (func)  ))  ] */ 

(17)  fcall  (func, args, pars)  = 

< func=<func  def>  a t 

1 args  = <arglist>  a S 

^ pars=  <formal  parllst>  A pars  £ nodes (h ( func) ) a class (pars)=  S 
.>  'parlist'  \ 

execute  (de f Ine (x | class (x)= ' program' , h(x)= 

append (append (append (append (append (1  is t ( [ Installpar (args , pars ; ] ) , 
[ Ins tallocals( func) ] ) , f unc) , [ releaselocs (func) ] ) , 

[ releasepars (func) ] ) , [pass (x | role (x)  = ' return'  a x £ 
nodes (h (f unc) ) ) ] ) ) ) 

/*  The  following  routines  assign  the  arguments  ('args')  supplied  by  the 
calling  routine  to  the  parameters  ('pars')  declared  in  tlie  segment  defi- 
nition. Each  parameter  in  turn  is  examined  and  if  it  is  to  be  passed 
by  value,  the  corresponding  argument  is  evaluated  and  its  value  is 
stored  in  a buffer.  Otherwise,  tlie  graph  of  the  corresponding  argument 
is  stored  in  the  buffer.  Wlien  the  parameter  list  has  been  exhausted, 
each  parameter  is  again  examined  in  succession.  If  the  parameter  is  to 
be  passed  by  value  (i.e.,  calltype  'value'),  the  value  stored  in  the 
buffer  is  assigned  to  Its  corresponding  parameter.  If  the  paramter  is 
to  be  passed  by  reference  (i.e.,  calltype  » 'reference'),  the  graph  of 
the  argument  is  assigned  to  the  corresponding  parameter.  This  process 


continues  until  all  parameters  have  been  assigned. 
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Upon  entry  to  these  routines  it  is  assumed  that  the  number  of 
parameters  is  equal  to  the  number  of  arguments,  and  that  each  evaluated 
argument  agrees  in  type  and  structure  to  its  corresponding  parameter. 

Installpar  initializes  the  buffer  to  the  empty  node,  the  index  to 
1,  and  then  calls  evalar gs . */ 

(18)  installpar  (args,pars)  = 

evalargs (define,define(x| v(x)=l) ,args,pars) 

/*  Evalargs  stores  the  evaluated  argument  in  a buffer  for  each  parameter 
passed  by  value,  and  stores  the  graph  of  the  argument  in  a buffer  for 
each  parameter  passed  by  reference  */ 


(19)  evalargs  (buffer, index, args, pars)  * 
nsize (h (args) )=nsize (h (pars) ) a 

structure (it em(v (index) ,h (pars ))) ^structure (eval ( item(y (index) 
h(args))))  A 

/ 

^ type (item(v( index) , h (pars )))= type (eval( it em(y( index), 
h(args))))  A 

form(item(y (index) , h (pars) ))=' rec ' /\  class (item(y (index) , 
h (pars  )))=*' data  ' a 

I ( form(eval  ( it  em(y(  index), h(args))))=*'simple'  V 

form(eval ( i tem(y (index) ,h(args ))))=' rec')  a 
( (cal  1 type (item(y( index) , h (pars) ))= 'value'  a 

((class(item(y(index),h(args)))“'data' 

A class (item(v (index) ,h (args) ))“’scalar') 

V class ( itera(y ( index) ,h (args )))=' operat ion ') ) V 
(calltype(iteni(y(lndex)  ,h  (pars)  ) )“  ' re  ference  ' a 
(class(item(y(index),h(args)))"'data' 


"1 
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V (class(item(v(lndex)  ,h(args))  )='operation' X 
V (*item(v (index) ,h(args) ) )= ' ref ' ) )) ) S 

v(index)  > nsize (h (args) ) =»  Installargs (buffer ,setv(lndex, 1) , 

args.pars)  /*  buffer  construction  is  complete  */ 

V (index)  ^ nsize  (h  (args)  ) =» 

/*  parameter  passed  by  value  */ 
call type (it em(v (index) ,h(pars)))=' value ' » 

/*  evaluate  argument,  store  its  value  in  buffer,  and  then 
proceed  to  process  next  argument  */ 
evalargs (buildbuf fer (buf f er , valuenode (eval (item(v (index) , 

h (args  ))))),  setv  (index,  V (index)+l](  /*  increment  index 


*/ 
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class  (node)  = ' data ' => 

type  (node)  = ' integer ' =5  def ine (x| v (x) =v (node) ) 

/*  Refnode  returns  the  evaluated  node,  stripping  the  outer  node  of  an 
expression  variable,  if  necessary  */ 

(21)  re fnode  (node)  = 

^ class(node)  = 'exprvarlable  ' V class (node)  = ' data ' ^ 

class (node) =' exprvariable ' =,  *node 
class  (node)* 'data'  =»  node 

/*  Buildbuffer  adds  a node  to  the  buffer  and  returns  the  buffer  */ 

(22)  but Idbuf fer  (buf f er , node)  = 

seth (buf  f er , append (h (buffer) , node) ) 

/*  Installargs  pops  the  buffer  containing  the  evaluated  arguments  and 
assigns  these  arguments  to  their  appropriate  parameters.  */ 

(23)  Instal largs  (buf fer , index , args , pars)  = 

v(lndex)  > nsize (h(args) ) =>  define(x| v(x)=true)  /*  parameter 
Installation  complete  */ 
v(index)  ^ nslze  (h  (args ) ) =» 

execute (define  (x ( class (x) = 'program' ,h(x)= 

append(llst( [pu3hpar(ltem(v(index) ,h(pars)),*buffcr)]), 

[ instal largs (seth (buf fer , pop (h (buf fer) ))  , 

setv(index,v(index)+l) , args, pars)  ]) ) ) 

/*  pop  buffer,  Increment  index,  then  proceed  to 
Install  next  parameter  */ 

/*  Pushpar  adds  tlie  evaluated  argument  onto  the  beginning  of  the  approp- 
riate parameter  list.  */ 

(24)  pushpar  (parameter, buf fernode)  • 

parattr(seth (parameter ,pusli  (h (parameter) ,buf  fernode) ) ) 
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/*  Parattr  assigns  the  attribute  of  the  previous  first  node  to  the  cur- 
rent first  node  */ 

(25)  parattr  (parameter)  “ 


seta(*parameter , a(next (*parameter,h (parameter) ) ) ) 

/*  The  following  routines  add  a variable  to  the  list  associated  with 
each  scalar  local  variable,  and  add  an  array  to  the  list  associated 
with  each  local  array  variable.  The  value  of  the  local  Is  undefined 
upon  entry  into  the  segment. 

Installocals  initializes  index  to  1,  and  calls  Installoc . */ 

(26)  instal locals  (segment)  » 

7 segment=  <segment  def>  /^^  ? 

/ locs=  <loclist>  A Iocs  g nodes (h (segment ) ) a / 

class(locs)  = ' locllst ' ^ 

ins tal loc(def ine (x I V (x)  = 1) ,locs) 

(27)  installoc  (index, Iocs)  = 

;(st ructure(item(v (index) ,h (Iocs) ))= 'seal ar ’ V C 

structure(item(v(lndex) ,h(locs) ))= 'array' ) a L 


form(ltem(v(index),h(locs)))='rec'  a 
type (it em(u( index), h(locs)))='lnteger' 


v(lndex)  > nslze (h  (Iocs) ) =»  define (x|v (x) =true)  /*  Installation 

of  locals 


complete  */ 


v(lndex)  ^ nsize  (h(locs) ) =s 

St  rue  ture  (ltem(v(  index)  ,h(locs)))=*'scalar'  = 
execute (def ine (x  |class(x)  = 'program' ,h(x)‘ 


append (list ( (pushloc (item( v( index) ,h(locs))) ]) ,/*install 


variable*/ 
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[ Ins t al  1 PC  (se tv ( index,  v( index) -»-l)  , Iocs)  ]) ) ) 

/*  proceed  to  process  next  local  */ 
structure (1 tem(v (index) ,h(locs) ) )= ' array ' =» 
execute(define (x | class (x)= ’ program’ ,h(x)= 

append (11s t ( [ Installocarray (define .define (x| v (x)“ 
arrayslze  (ltem(v(iiidex)  ,h  (Iocs) ) )),  ltem(v ( index)  , 
h(locs)))]),  /*  Install  array  */ 

[ ins t alloc(setv( index, v(indcx)-H ) , Iocs) ] ) ) ) 

/*  proceed  to  process  next  local  */ 

/*  Pushloc  adds  a local  variable  to  its  corresponding  stack.  The  stack 
is  initially  set  to  a single  node  with  attributes.  */ 

(28)  push loc  (local)  = 

7 strucLure(local)  = ' scalar  ’ a,  form(  local  ) = ' rec  ' 

( type ( local)= ' Integer ' 

type(local)  = ' integer ' =s 

seth  0 ocal , push (h( local) ,def ine(x I a(x)=a (*1  ocal) ) ) ) 

/*  Instal locarray  Inillds  an  array  and  then  adds  it  to  Its  cor respondliig 
stack.  (The  stack  is  a recursive  array  which  is  Initially  set  to  an 
array  with  attributes.)  Array  is  initially  set  to  ( ] and  v(count) 
is  set  to  the  size  of  the  array.  Count  is  decremented  until  the  array 
has  been  completed.  Tlie  push  primitive  is  used  to  Install  the  array  on 
its  stack.  */ 

(29)  instal locarray  (array .count .stack)  » 

^ type  (stack)  = ' integer  ' a ff’rm(stack)=* ' rec'  ^ 

v(count)=0  =j  /*  array  ready  to  be  added  to  stack  */ 

1 oca ttr (so  tit  (stack , push (h (stack) .array )) ) 


V (count  )'f<0 


/*  array  building  still  in  progress  */ 
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type(sLack)=  ' Integer  ' 

lnstaIlocarray(seth (array .push (h (array) ,def inc (y ( a(y )* 
a(*l.*stack)))))  , setv  (count , v (count ) -1)  , 
stack) 

/*  proceed  to  install  next  element  of  array  */ 

/*  Locat t r assigns  the  attribute  of  the  previous  first  array  to  the 
current  first  array  */ 

(30)  locat  tr  (stack)  = 

seta(*stack,a(next(*stack,h(stack)))) 

/*  The  following  routines  release  the  locals  and  parameters.  Releaselocs 
calls  on  release  to  release  locals.  Releasepars  calls  on  release  to  re- 
lease parameters.  */ 

(31)  releaselocs  (segment)  = 
segment=  <segment  def> 

locs“  <loclist>  \ Iocs  £ nodes (h (segment) ) a class(locs)= 

' loclist ' 

re.lease(def  ine  (x|v(x)=l).  Iocs) 

(32)  releasepars  (segment)  = 

? segment®  <scgment  def>  a 

< pars®  <formal  parlist>  a pars  £ nodes (h (segment ) ) a 
( class(pars)  = 'parllst ' 

release (def ine (x|v(x)=l) .pars) 

/*  Release  is  used  to  release  both  locals  and  parameters.  The  value  of 
index  is  initially  set  to  1.  It  calls  on  popst  ack  to  pop  the  local  or 
parameter  */ 

(33)  re  lease  (index, locsorpars)  ® 

v(index)  > nslze(h(locsorpars) ) def  ine  ( x|  v (x)-=  true)  /*rel  ease 


I 


is  complete*/ 
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v(index)  ^ nsiEe(h(locsorpars))  =» 

execiKe(deflne(x|  class  (>-)  = ' program'  ,h(x)  = 

append  0 1st ( [ pops tack(ltem(\i  (index) ,h (locsorpars) ) ) ]) , 
[re \ ease (se tv (Index, v( index) +1) , locsorpars) ]) ) ) 

/*  proceed  Co  release  next  local  or  parameter  */ 

(34)  jopstack  (locorpar)  = 

scth(locorpar ,pop (h(locorpar) )) 

(35)  pass  (node)  = node 

Primitive  Functions 

/*  These  functions  perform  th*;  primitive  functions  (ADD,  SUB,  MINUS, 
etc.)  upon  the  opi^ranJs  supplied.  The  operands  are  expression  variables, 
each  of  which  contains  a variable  node.  Tlic  result  of  the  operation 
upon  the  specified  variable  nodes  Is  stored  In  a node  which  becomes 
nested  In  an  expression  variable  before  being  returned  to  the  eval  rou- 
tine. */ 

<op‘>  (operandl,  operand2)  “ 

add  level  (define  lx  lv(x)*-(v(*operandl)o£  v(*operand2) ) , 
a(x)=a(*operandl) )) 

/*  Binary  routine  evaluates  the  function  and  builds  a node  contain- 
ing the  result  of  the  evaluation.  This  node  is  nested  within  an 
outer  nodi'  before  being  returned.*/ 

<op>  (operandl) 

addlevel (del  1 ne  (x  j v (x)"Oj^  v (*operandl ) , 
a(x)**a(*operandl)  ) ) 

/*  Unary  routine  evaluates  the  function  and  builds  a node  contain- 
ing the  result  of  the  evaluation.  This  node  is  nested  within  an 
outer  node  before  being  returned.  */ 


CHAPTER  111 


EXTENSION  1 
( ESCAPE  mechanisms) 


1 . S IMPL-T  Syntax 

This  section  of  the  paper  describes  extensions  to  the  base  model  of 
SIMPL-T  which  reflect  the  addition  of  escape  mechanisms  to  the  language. 
These  mecluinlsms,  namely  the  EXIT,  RETURN,  and  ABORT  statements,  affect 
the  program's  flow  of  control  and  allow  the  user  to  cause  the  early  termi- 
nation of  a WHILE  loop,  a procedure,  a function,  or  the  program  itself 
when  his  pre-defined  conditions  are  met. 

The  EXIT  statement  provides  a means  of  escaping  from  a WHILE  loop. 

In  its  unlabelled  form,  it  causes  the  termination  of  the  innermost  WHILE 
loop  containing  the  EXIT  statement.  By  specifying  its  label  in  the  EXIT 
statement,  however,  any  one  of  the  loops  within  which  the  EXIT  is  nested 
nay  be  terminated.  Normal  execution  proceeds  upon  termination  of  the 
proper  loop. 

The  RETURN  statement  causes  a return  to  the  calling  procedure  or 
function.  In  the  extended  version  of  SlMPL-T,  the  RETURN  may  appear  any- 
where within  the  statement  list  of  the  segment  and  need  not  be  the  last 
statement . 

The  ABORT  statement  causes  the  Immediate  termination  of  the  entire 
SLMPL-T  program. 

2 . H-Graph  Syntax 

Tlie  changes  to  the  control  structure  of  the  language  described  above, 
will  affect  only  the  control  statements  of  the  SIMPL-T  model  - the  re- 
mainder of  the  model  is  virtually  unchanged.  The  control  functions  will 
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in  effect  Ignore  tlie  reucjining  «t  t ; cment  s within  the  WHILE  loop(s)  after 
an  EXIT  statement  has  been  en  :onn  ti- ■ u- J,  aiul  will  ignore  the  remaining 
statements  within  the  segment  after  a RETURN  statement  has  been  encounter- 
ed. For  the  case  of  an  ARORI , all  remaining  statements  in  the  program 
are  ignored,  and  execution  of  tiii  i-rogram  terminates. 

The  modifications  and  additions  to  lii-.'  base  model  of  SIMPL-T  follow. 
When  much  of  a routine  is  im  lianged  from  tliat  presented  in  Chapter  II, 
the  notation  '...'  is  used  to  dt-nott.  the  unclianged  portion.  That  portion 
of  a routine  which  has  been  changed  i.;  designated  by  a vertical  line  | . 

Syntax  changes  an<i  additions  .iri-  prcct-ded  by  the  corresponding  line 
number  of  Chapter  II  (if  it  exist.s)  and  tlie  suffix  .x  . This  section 
uses  the  suffix  .1  . Cliangos  and  additions  to  the  semantic  functions 
are  handled  in  a similar  mar, lu  r. 

SYNTAX:  EXTl,  RETURli,  AHOKT 

Statements 

52.1  <stat>  ::  =■  ^if  stmt>  j awhile  si  i.it:- I <case  stmt  > | <ass  1 gn  stmt>| 

<call  stmt  • I ;>l  mt-- ' ^ return  stmt  ' | <abort  stmt> 

1 <stat  1 ist>  J 

510.1  <whllo  stmt>  * I ‘convert  pre'llcate^'  ]; 

'^<end> 

class= 'pro  g r am ’ , 1 ahe 1= < 1 ab  e 1 n ame  > , stmttype= 'while' 

/*  'a'HII.E  statements  can  bo  labelled  */ 

521.1  <exit  stmt>  ::  = [<exlt  opeiaition' ] ; cl ass= ' operat ion  ' , 

designal  ot  = •;  1 abe  1 narae> 

522.1  <exit  operation'  ::  “ e_xi^(  ) 

/*  f hortliand  notation  for  [exit  ] -♦  [ ] */ 


I 
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example 

<exlt  stiDt> 


~"1 


exit 


category= 
'semantic ' 


class=' operation' 
designator=<labelname> 


523.1  <labelname>  ::  = '<ident  1 f ier  •'!  ' 0 ' 

524.1  <abort  stmt>  ::  = [abort  ( ) ] ;rlas8='operation' 

F3.1  <semantic  function>  . . . | exit | abort 

3 . Semantic  Functions 
CONTROL  FUNCTIONS 

/*  Traverse  is  a recursive  procedure  which  controls  the  traversal 
through  a graph.  It  calls  for  tlie  execution  of  the  node  'current  node' 

(via  the  execute  function)  and  uses  its  value  to  calculate  the  next  node 
in  the  graph  being  traversed  (via  the  nextnode  function).  Traverse  then 
examines  the  new  'current  node'.  If  it  is  a data  node,  we  know  that  the 
previous  node  had  been  the  last  executable  node  (see  line  (c)  of  nextnode) . 
The  new  node  is  returned  and  the  t raverse  function  terminates  at  this 
point . 

If  the  new  node  indicates,  by  way  of  a message  generated  by  the  exe- 
cution of  the  previous  node,  that  an  KXIT  statement  had  been  encountered 
(i,e.,  if  v(current  node)=exlt ) , t rave  rse  checks  to  see  if  'nodeset'  cor- 
responds to  the  WHILE  loop  which  is  to  be  terminated.  If  it  does  not, 
the  EXIT  message  is  passed  along  until  t raverse  succeeds  in  finding  the 
proper  WHILE  loop.  Wlien  the  label  of  'nodeset'  corresponds  to  the  label 
of  a WHILE  loop,  a dummy  node  is  returned  and  the  message  is  in  effect 
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erased. 

If  the  new  node  indicates  that  a procedure  RETURN  statement  had  been 
encountered  (l.e..  If  (current  node)=return) , traverse  then  checks  to 
see  If  'nodeset'  represents  a procedure.  If  It  does  not,  the  RETURN  mes- 
sage is  passed  along  until  traverse  succeeds  in  finding  the  innermost 
procedure.  Vflten  the  procedure  is  found,  a dummy  node  is  returned,  and 
the  RETURN  message  is  In  effect  erased.  If  the  new  node  indicates  that 
a function  RETURN  statement  had  been  encountered,  (l.e.,  v(current  node)= 
f return) , the  value  of  the  RETURN  expression  is  stored  in  the  graph  of 
the  function  definition.  The  node  containing  the  stored  evaluated  ex- 
pression is  returned  and  the  RETURN  message  is  in  effect  erased. 

If  the  new  node  indicates  tliat  an  ABORT  statement  had  been  encounter- 
ed (l.e..  If  V (current  node)'=abort) , tlie  ABORT  message  remains  unchanged 
and  the  execution  of  the  program  terminates. 

If  none  of  these  above  conditions  lias  been  met,  traverse  calls  it- 
self recursively  to  calculate  tin:  next  node  In  the  path  and  then  subjects 
the  new  'current  node'  to  the  checks  described  above.  */ 


(2.1) 


r averse  (current  node,  nodeset)  = 
class  (current  node)-’ 'data' 

V V (current  node)  = returnA  (seiU  VPC  (nodese  t ) =»  ' proc ' V 

(3ii3x  3 nodeset  g nodes  (h"  (x)  )a1i'^  (x)“h'^  ^(1»(x))a 
segtype (x)“' proc ' ) ) 

Vv(current  node)° f returnA ( (segtype (nodset )° ' f unc ' ^ 
type(xj  role(x)'’'retiun'A>;£  nodes  (h  (nodeset)  ) )“ 
type(*current  node)  A (type  (nodeset)*= 
type (*currcnt  node)) 


) 

1 


) 

) 


V 


(an3x  ? nodeset  t nodes  (li'^fx) ) A ^ 
h'^(x)-h'^  ^(h(x))  A segt  ype  (x)“  ' f unc  ' ) ) 
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V V (current  node) °=exit 

V V (current  node)=abot  t 

V class (current  node>='operation' 

V class  (current  node)=  ' proguani' 

class (current  node)='data'  « current  node  /*end  of  traversal*/ 
v(curre..c  node)  = retiirn  =>  /*procediire  RETURN*/ 

segtype(nodeset)='proc'  deflne(x| v (x)=true) 

T current  node  /*pass  on  message, 

continue  search  for  procedure*/ 

V (current  node)  = fretum  =5  /*f  unction  RETURN*/ 

segtype(nodeset )= ' func ' =5 

assign (xl  role  (x)°*  return'/^  x Q nodes  (h  (nodeset) ) , 
current  node) 

/*  store  value  of  RETURN  expression  In  graph  of  the 
function  */ 

T current  node  /*pass  on  message,  continue  search  for 

funct ion*/ 

v(current  node)=exit  =3 

strattype(nodeset)= 'whi le ' => 

label(nodeset)=designator(current  node)  V 

designator (current  node)“'0'  =»  def 1 ne (x| v (x) =t rue) 
/*proper  WiillE  loop  has  been  found,  erase 
message*/ 

T » current  node  /*pass  on  message,  continue  search 

for  WlilLE*/ 

v(current  node)«aborl  current  node  /*pass  on  message*/ 
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class (current  node)= 'operation ' V class (current  node) = 'program' 
=»  traverse (nextnode (execute (current  node) , current  node, 
nodeset) .nodeset) 

/*  continue  traversal  */ 


/*  Nextnode  examines  the  previous  node  ('lastnode')  and  the  node  con- 

tainiiTg  the  value  resulting  from  the  previous  node's  execution  ('last- 

nodevalue').  If  the  previous  node  had  been  a RETURN,  EXIT,  or  ABORT 

statement  (line  b) , a message  to  this  effect  is  sent  back  to  traverse . 

If  the  previous  node  had  beeii  a terminal  node  (line  c) , the  traversal  of 

the  graph  is  complete,  and  the  previous  node  is  returned  to  the  traverse 

function.  If  the  previous  node  executed  had  had  one  arc  directed  to  the 

nextnode  (line  d) , this  new  node  is  returned  to  t raverse . If,  however, 

more  than  one  arc  had  emanated  from  the  last  node  executed,  the  arc 

label  must  be  matched  against  the  value  resulting  from  the  execution  of 

the  previous  node  (line  e,f).  hlien  a unique  match  is  found,  the  next 

node  to  be  examined  is  returned  to  traverse.  */ 

(3.1)  nextnode  (lastnodevalue,  lastnode,  nodeset)  = 

^ V (lastnodevalue)=undefined  V 

V (lastnodevalue)=return  v v ( lastnodevalue) = fret urn  V 

V (lastnodcvalue)=exit  V y ( 1 as t node value)= abort  V 

^ 0 ^ size(padj (lastnode, h(nodeset)) ) S 1 /*0  or  1 successors*/  V 

^ ( ( (jx) xgpadj (lastnode ,h (nodeset) )^e (las tnode , x)=y (lastnodevalue) 

h (nodeset) 

4 /*  matching  arc  label  for  IF,  WHILE,  CASE  statements*/V 

/ (3x) X tpadj (lastnodeih(nodeset))Ae(lastnode,x)-'else') 

} h(nodeset) 

A size  (pad j (lastnode , h (nodeset) ) | e ( las t node ,x) =v (lastnodevalue) 

h(nodeset) 

V e(lastnode,x)='else')=l)  /*only  one  match  exists*/ 
h (nodeset) 


/*  (a)  pass  on  error  message  */ 

V (1 as t node value )= unde f Ined  =,  ] astnodevalue 
/*  (b)  pass  on  return,  exit,  or  abort  message  */ 

V (las tnodevalue) -r eturn  V v(lastnodevalue)  = fretum  V 
v(lastnodevalue)=exlt  V v(!astnoda  value)=abort 

=}  lastnodevalue 

/*  (c)  . . . 


COMPONENT  FUNCTIONS 

(4.1)  eval  (node)  = 

( 

< 


V (category  (*node)='seraantic'  /\  ( . . . V 
V (*node)  --exl  t V v(*node)=  abort  ...))) 


/*  node  to  be  evaluated  represents  a semantic  function  */ 
category (*node)='semantic’  =, 


V (*node)=exlt  exl t (de f ine (x | des Ignat or (x)= 
designator (node) ) ) 

V (*node)=abort  abortff  ]) 

(11.1)  return  (node)  •= 

^ node»[  ] ^ 

deflne(x| v(x)=return)  /*  procedure  RETURN  */ 


(12.1)  f return  (node)  “ 

^ node-<expr>  j 

deflne(x!v(x)-fretiirn,h(x)°h (eval (node)))  /*functlc 


RETURN  */ 


1 
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/*  Exit  creates  a message  node  which  signals  that  an  EXIT  statement 
has  been  encountered.  If  no  label  appeared  in  the  EXIT  statement,  the 
designator  of  the  input  'node'  would  be  'O',  If  a label  did  appear  in 
the  EXIT  statement,  the  designator  of  the  input  'node'  would  be  the  label 
name.  In  either  case,  the  value  of  the  node  is  set  to  exit  to  indicate 
to  the  control  functions  (traverse . nextnode)  that  an  EXIT  statement  has 
been  encountered.  */ 

(36.1)  exit  (node)  = 

j designator (node)=<labelname>  | 

define  (xldeslgnator(x)=designator(node)  , v (x)=exit) 

/*  Abort  creates  a message  node  which  signals  to  the  control  functions 
(traverse,  nextnode)  that  the  program  is  to  be  terminated.  The  input 
'node'  is  empty.  */ 

(37.1)  abort  (node)  * 

^ node=[  ] ^ 

define  (x|v(x)=^abort) 

As  an  example,  consider  a SIMPL-T  statement  whose  syntax  and  h-graph 
representation  are  given  below: 
while  <expr>  ^ <statl> 

while  <expr>  ^ <stat2> 
exit 

end 

<stat3> 

end 
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The  statement  W is  examined  by  the  execute  routine  and  Is  found  to 
have  class= 'program' . The  nodes  of  the  statement  must  therefore  be  tra- 
versed, beginning  with  the  conditional  expression  represented  in  Nl.  By 
assumption,  the  expression  is  true  (i.e.,  evaluates  to  1).  The  nextnode 
routine  matches  this  value  1 against  the  edge  labels  emanating  from  Nl 
and  datenuines  that  the  next  node  to  be  traversed  is  N2,  a statement  list. 
Each  statement  of  the  statement  list  must  be  examined,  beginning  with  N3 
and  then  proceeding  to  the  hUILE  loop  represented  in  N4.  The  class  of 
N4  is  'program'  so  it  too  must  be  traversed.  Its  traversal  begins  with 
N5,  which  by  assumption  Is  a true  expression  (I.e.,  evaluates  to  1). 

The  nextnode  routine  matches  this  value  1 against  the  edge  labels  emana- 
ting from  N5  and  chooses  N6  as  the  next  node  to  be  examined.  The  state- 
ment list  represented  in  N6  must  be  examined  one  statement  at  a time,  be- 
ginning with  N7  and  then  proceeding  to  the  EXIT  statement  found  in  N8. 
Evaluation  of  the  EXIT  results  in  a node  whose  value  is  exit  and  whose 
designator  attribute  is  'LABI'.  This  node  serves  as  a signal  to  the  con- 
trol functions  that  the  normally  sequential  flow  of  control  is  being 
altered.  The  message  is  transmitted  by  the  nextnode  routine  to  the 
traverse  routine  which  checks  to  see  if  a WHILE  statement  has  been  com- 
pleted. Toward  this  end,  first  N6  and  then  N4  are  examined.  A WHILE 
statement  is  indeed  represented  in  N4  but  its  label  does  not  agree  with 
the  designator  of  the  EXIT  statement  and  so  the  search  for  the  proper 
WHILE  statement  must  continue.  The  traverse  routine  examines  N2  and 
then  W.  A WHILE  statement  (W)  whose  label  matches  the  designator  of  the 
EXIT  statement  has  been  found.  Execution  of  statement  W is  complete. 

The  execution  of  the  statement  is  described  below.  T)ie  following 
shorthand  notation  is  used: 
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© refers  to  a node  whose  value  is  1 
EXIT  node  refers  to  a node  where  v(node)=exlt  and 
designator (node)=<labelnarce> 
ex=execute 
tr=traverse 
nn-nextnode 

It  is  assumed  that  both  instances  of  <expr>  in  the  example  are  true. 

ex(W)=tr (N1 ,W) 

°tr (nn (ex(Nl) ,Nl,W),w) 

=tr (nn(eval (Nl) ,N1 ,W) ,W) 

= tr(nn(Q,Nl,W).W) 

=_^(N2,W) 

=tr(rm(ex(N2)  ,N2,W)W) 

^(N3,N2) 

^(nn(£x(N3)  ,N3,N2)  ,N2) 
eval (N  3) 

^(N4,N2) 

^(nn(ex(N4)  ,N4,N2)  ,N2) 

^(N5,NA) 

^(rm(ex(N5)  ,N5  ,N4  ) ,N4) 
eval (N5) 

tr(nn((^^.N5,N4)  ,N4) 

_^(N6,N4) 

tr(nn(ex(N6) ,N6,N4) ,N4) 

^(N7,N6) 

^(rin(ej«(N7)  ,N'7,N6)  ,N6) 
eval ( N 7 ) 
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t£(nn(_^(nn(^(nn(t£(N8,N6)  ,N6,N4)  ,N4)  ,N4,N2)  ,N2)  ,N2,W)  ,W) 
^(nn(ex(N8)  ,N8,No)  ,Nb) 
eval(N8) 

^(rm(EXIT  node,N8,N6)  ,N6) 

^(EXIT  node,N6) 

^(iin(EXIT  node,N6,NA)  ,N4) 

^(EXIT  node.NA) 

^(rm(EXlT  node,N4,N2)  ,N2) 

/*labels  do  not  match*/ 

^(EXIT  node,N2) 

=_^(nn(EXIT  node,N2,W)  ,W) 

=*tr  (EXIT  node.W) 


°true 

/*labels  match*/ 


CHAPTER  IV 


EXTENSION  2 
(STRINGS  (D) 

1 . SIMPL-T  Syntax 

In  the  basic  version  of  the  SIKPL-T  language  described  above,  the 
only  data  type  recognized  was  'integer'.  An  extended  version  of  the  lang- 
uage which  includes  'string'  data  types  will  now  be  described. 

A string  is  a finite  sequence  of  characters.  In  this  first  version 
of  string  extensions  to  SIMPI.-T,  this  sequence  of  characters  will  be 
treated  as  a unit  whose  value  is  the  value  of  the  string.  No  attempt 
will  be  made  to  consider  the  characters  as  individual  units  of  informa- 
tion. 

A string  has  two  lengths  associated  with  it:  a maximum  length  which 
reflects  the  maximum  length  declared  by  the  user,  and  a current  length 
which  reflects  the  actual  number  of  characters  in  the  string  at  a par- 
ticular point  in  time. 

Strings  may  be  linked  together  to  form  a string  array.  All  elements 
of  this  array  must  have  tlie  same  maximum  length.  Tluis  a string  array 
declaration  Includes  two  static  length  declarations:  one  specifying  the 
maximum  size  of  a string  within  tlie  array,  and  the  other  specifying  the 
number  of  elements  (l.e.,  strings)  in  tlie  array. 

Binary  relational  operators  can  be  used  in  conjunction  with  string 
operands,  as  can  the  two  now  operators  that  are  Introduced  in  this  sec- 
tion: concatenate  and  substring.  The  concatenate  operator  ^_n  generates 
a string  by  Joining  together  two  existing  operand  strings.  The  substring 
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operator  generates  a string  by  extracting  a substring  from  an  existing 
string. 

The  assignment  statement  for  strings  assigns  the  value  of  a string 
expression  to  a string  variable.  It  is  also  possible,  by  using  the  sub- 
string operator  on  the  left  side  of  the  assignment  statement,  to  assign 
a value  to  a portion  (l,e.,  substring)  of  a string  operand.  This  facility 
is  called  substring  assignment. 

A string  function  is  a function  whose  value  is  a string.  The  rules 
governing  t*‘e  use  of  string  functions  are  analogous  to  the  rules  for 
Integer  functions  described  in  the  basic  version  of  SIMPL-T.  Similarly, 
the  conventions  followed  for  passing  strings  and  string  arrays  as  argu- 
ments to  user  procedures  and  functions  are  the  same  as  for  Integers  and 
Integer  arrays. 

The  extended  version  of  SlMPL-T  defines  several  intrinsic  functions 
that  facilitate  programming  with  strings.  Two  of  these  functions  are 
modeled  in  this  paper:  trim  (which  truncates  trailing  blanks)  and  digits 
(which  checks  to  see  if  each  character  is  a digit). 

For  a more  detailed  description  of  strings,  see  SIMPL-T  manual  [3] 
(pp.  25-39). 

2 , H-Graph  Syntax 

The  h-graph  syntax  of  the  extended  model  of  SIMPL-T  has  been  ex- 
panded to  include  string  as  well  as  Integer  variables.  The  string  vari- 
able is  represented  as  a node  whose  value  is  the  value  of  the  string. 

Two  lengths,  a maximum  and  a current  length,  are  associated  with  the 
node.  Being  that  the  maximum  length  remains  constant  throughout  the 
program,  it  is  assigned  to  an  attribute  (maxslze)  of  the  node.  The  cur- 
rent length,  however,  changes  dynamically  during  execution  and  has  there- 
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fore  been  assigned  to  a node  within  the  string. 

String  variables  may  be  linked  together  in  list  form  to  create  a 
one-dimensional  string  array.  This  array  is  represented  by  a node  whose 
graph  consists  of  nodes  representing  the  individual  strings  of  the  array. 
The  number  of  elements  in  the  array  (arraysize) , together  with  other  iden- 
tifying characteristics  are  reflected  In  the  attributes  associated  with 
the  array.  At  the  same  time,  each  string  of  the  array  retains  its  own 
value,  list  structure,  and  attributes. 

Simple  string  variables  are  Joined  together  In  a list  structure  to 
form  a recursive  string  variable;  simple  string  arrays  are  Joined  to- 
gether to  form  a recursive  string  array.  These  additional  forms  of  data 
are  necessary  for  the  implementation  of  procedures  and  functions. 

The  addition  of  string  functions  has  been  made  possible  merely  by 
expanding  the  definition  of  <typen.ime>  to  include  'string'.  The  gen- 
eral rules  governing  the  use  of  functions  need  not  be  modified. 

The  flow  of  control  in  the  expanded  model,  together  with  its  associ- 
ated control  functions,  remain  unchanged  by  the  addition  of  strings. 

The  component  functions,  however,  must  be  adapted  to  recognize  this  new 
data  type. 

Since  integer  operands  may  not  be  used  in  conjunction  with  the  two 
new  operators  introduced  in  this  section,  con  and  substring,  type  check- 
ing must  be  performed  at  compile  time  to  enable  tlie  proper  evaluation  by 
the  eval  routine.  The  assign  routine  as  well  assumes  extensive  type 
checking  upon  its  parameters  at  compile  time  to  ensure  that  strings  and 
integers  are  handled  properly.  In  addition,  the  assign  routine  has  been 
expanded  to  allow  for  substring  assignment. 
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The  extensions  to  the  base  model  of  SIMPL-T  follow. 
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SYNTAX 


Data 

Variables 

V2.2 

<simple  var>  ; 

“ <integer  var>|<strlng  var> 

V6.2 

<strlng  var>  ; 

= [■^length>  -xst ring>  ];  cl ass=  ' data' , type- ' string ' , 

structure-  'scalar ' , fom-  'simple  ' .raaxs ize=<integer> 

V7.2 

<string>  : : •= 

<charlist>  | [ ] 

V8.2 

<charl ist>  : : 

- [any  sequence  of  legal  characters] 

V9. 2 <length>  : : * 
example 

[ <integer> ] 

<strlng  var> 

string  FOUNDf  3l  = 'NO' 

^ class='data' . 

type«'strlng' , 
3tructure= 'scalar' , 
f orm= ' s imp le ' , 
maxsize=3 


/*  The  rules  governing  the  passing  of  string  parameters  are  analogous 
to  those  for  passing  Integer  parameters.  Local  variables  and  parameter 
variables  are  defined  as  recursive  variables  containing  their  own 
stacks.  These  stacks  are  defined  by  a list  structure.  Recursive  string 
variables  and  recursive  string  arrays  are  now  defined; 

V4.2  <rec  var>  ::  = <rec  lnteger> | <rec  strlng> 

A n 

V10.2  <rec  strlng>  ::  = (<strlng  var>  {►<strlng  var> } ];  class= ' data ' . 

o 

type= 'string' ,st  ructurc= 'scalar' , f o rm= ' rec ' 

Arrays 

A2.2  <slmple  array>  ::  = <lnteger  array> | <strlng  array> 


★ n 

A6.2  <strlng  array>  ::  » [<strlng  var>  {»<string  var> } ] ; cl ass“ ' dat a ' , 
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type- 'string' .structure- ' array ' , form-' simple ' .arraysize- 
nslze(h(<8trlng  array>)) 

A4.2  <rec  array>  ::  - <rec  integer  array>|<rec  string  array> 

A7.2  <rec  string  array>  ::  - (<strlng  array* {-►<string  array>}”]; 
class- ' data' .type- 'string' .structure- ' array ' , form- ' rec ' . 
arrays ize-nsize(h(<rec  string  array>)) 

/*  The  syntax  for  <expr>  and  <operation>  is  unchanged  from  that  de- 
fined in  previous  sections.  The  syntax  for  <operator>  has  been  ex- 
tended. */ 

El  <expr>  ::  = <operation> | <ref  predlcate> | [ <varlable> ] ; 

class- 'exp r variable ' 

Operat ions 

01  <operation> : : - <primitive  operatlon> | <user  operation> 

★ 

02  <primitive  operation>  = [<operator>  xoperand  list>]; 

class- ' operation' 

05.2  <operator>  ::  = <prlmitive  unary  function> ; form- ' unary ' , 

category- ' p r imi t Ive ' | 

<primitlve  binary  f unct ion> ; form- 'binary ' . 
category- 'primitive' | 

<prlmitlve  tertiary  function> ; form- ' tertiary ' , 
category- 'primitive ' | 

<prlmitive  quint  f unct ion> ; form- ' quint ' , 
category- ' primitive ' 

010.2  <prlmitive  unary  function>  ::  - ...|<unary  string  function>; 

optype- 'string' 

018.2  <unary  string  functlon>  ::  = [trim]  | [digits ] 

06.2  <prlmltive  binary  function>  ::  - ...|<binarv  string  function>; 

optype-'string' 
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019.2  <blnary  string  function^  ::  = [con ] 

020.2  <primlcive  tertiary  function>  ::  = <tertlary  string  function>; 

optype=  'string' 

021.2  <tertiary  string  function>  ::  = [substr Ingr tn ] ^ [substring] 

022.2  <priraitive  quint  function>  ::  = <quint  string  function>; 

optype='string' 

023.2  <quint  string  functlon>  ::  = [substringassign] 

Program  ^t  riu- U^re 

P6.2  <typename>  ::  = ' Integer ' | ' string' 

513.2  <ip>  ::  = <variable> | <ref  predlcato I <substr Ing  predlcate> 

525.2  <substring  predlcate>  ::  = [<substrlng  operation> ] ; class= 'operation ' 

526.2  <substring  operation>  ::  = subs tr Ing ( <expr> , <expr> . <expr>) 

Semant  ic^  Operat  io_n^ 


F3.2  <seraantic  function> 


[strlngeval ] | [substringeval] 


3 , Semantic  Functions 
COMPONENT  FUNCTIONS 
(4.2)  eval  (node)  = 


class  (node)  = ' data'/\  ( fonn(node)  = ' rec  ' V f orm(node)  = ' s Imple  ' ) V 
class (node)= ' exp r variable ' V 

class (node) = ' operat ion 'a ( (category (*node)= 'primitive 'a 
A (( form(*node)=* 'binary ' ^ 


(( (opt vpe (*node)= ' integer ' V optype (*node)  = 
'rol'  V optype(*node)“' log' ) 

A egerexpr  (oper  1 (node)  )*1 
A In t egerexpr (oper 2 (node) )=1) 

|v  ( (optype (*node)= ' St  ring ' V optype(*node)« 


1 
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^ strlngexpr(operl(node))°l 
/\  strlngexpr  Coper 2 (node)  )=!))) 

V (£orm(*node)= ' unary ' 

A ( ((opt^ype  (*node)=  ' integer ' V optype  (*node) 
'rel')  Integerexpr (operl (node) ) “I) 

V (optype(*node)='strlng' 

A str ingcxpr (operl (node) )=!))) 

V (form (*node)= ' tert lary ' 

A optype (*node)= ' str Ing ' 

A str Ingexpr (operl (node) )=1 
A Integerexpr (oper2 (node) )=1 
A Integerexpr (oper 3 (node) )=1) 

V (form(*node)= ' quint ' 

A optype(*node)  = ’ string ' 

A stringexpr (operl (node) )=1 
A stringexpr (oper 2 (node) )=1 
A integerexpr (oper 3 (node) )=1 
A integerexpr (oper 4 (node) )°1 
A Integerexpr (oper 5 (node) )=!))) 

V category(*node)='function' 

V (category (*nodc)= ' semant ic  ' 

A (v (*node)=assi gn  V . . . 

V (*node)  = st  r ingeval 

V (*nodc)=substr ingeval ) ) ) 


/*  node  to  be  evaluated  represents  an  operation*/ 
c lass  (node  )=' operat  ion  ' -» 

category (*node)= ' pr imit ive ' ^ 
form  (*node)“ 'binary  ' =» 
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V (*tiodfc)  (eval  (oper  1 (node)  ) ,eval  (oper2  (node)  ) ) 

/*  where  if  v(*aode)=add  =»  add (eval (oper 1 

(node))  , eval  (oper2  (node))) 

v(*node)=sub  sub  (eval  (operl 

(node) ) , eval (oper2 (node) ) ) 

V (*node) =con  » con(eval (operl 

1 

(node) ), eval (ope r2 (node) ) ) etc.*/ 

form(*node)= ' unary ' => 

V (*node) (eval (operl (node) ) ) 

form(*node)= ' tert  lary  ' =>  j 

V (*node (operl (node) , oper 2 (node) , oper 3 (node) ) ^ 

/*  where  If  v(*node)=substrinRrtn  ^ substringrtn  ^ 

(oper 1 (node) , oper 2 (node) , oper 3 (node) ) */ 
form (*node)  -' quint ' =s 

v(*node) (operl (node) , oper 2 (node) ,oper3(node) , 
ope r 4 (node) , oper 5 (node) ) 

• i 

/*  node  to  be  ev.aluated  represents  a senuintlc  function  */  i 

* 

J 

category (*node)- ' semantic ' • 

V (*node)=asslgn  =»  (operl (node) , oper 2 (node) ) 

V (*node)=str Ingeval (operl (node) ,oper2(node) ) 
v(*node)=substringeva1 (operl (node) , oper 2 (node)  , 
oper 3 (node) , oper 4 (node) ) 

/*  The  assign  routine,  together  with  strlngcval  and  substrlngeval , evalu- 
ate the  right  side  Crp')  of  the  statement  and  assign  Its  value  to  the 
node  represented  by  ' tp' . Being  that  ' rp'  designates  an  expression,  its 
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nested  node's  value  is  used  in  the  assignment.  The  routine  is  written 
in  modular  fashion  to  avoid  the  possibility  of  side  effects.  Type  check- 
ing is  performed  to  ensure  that  strings  are  not  assigned  to  integer  vari- 
ables and  Integers  are  not  assigned  to  string  variables.  */ 

(7.2)  assign  (ip,  rp)  = 

( (integervariable(ii,p)°l  V integerarrayelement (ip)°l) 


^ A integerexpr (rp)-l) 

' I V( (stringvariable(ip)=l  V strlngarrayelement (ip)^l) 


S A stringexpr (rp)°l) 

^ ' V(class(ip)='operation'  A v (*£p)=substring  A stringexpr (rp)=l)  ) 
/*  assignment  to  Integer  variable  or  integer  array  element  by 
an  integer  expression  */ 

integervariable(ep)»l  =>  setv(eval (ip) ,y (*eval (rp) ) ) 
integerarrayelement (ip)=l  3etv(*eval (ip) ,y (*eval (rp) ) ) 

j /*  assignment  to  string  variable  or  string  array  element  by  a 

I string  expression  */ 

I 

I strlngvar iable ( ip)  = l =>  str Ingeval (eval (ip) ,eval (rp) ) 

I 

I 

strlngarrayelement (ip)=l  ^ stringeval (*eval (jp) ,eval (rp) ) 

I /*  assignment  to  a substring  of  the  string  variable  specified 
in  the  left  part  ('ip')  of  the  statement  by  the  expression 
specified  in  the  right  part  ('rp')  of  the  statement. 

The  string  variable  specified  in  the  ' ip'  of  the  state- 
ment is  represented  by  operl(ip).  The  field  that  speci- 
fies which  character  of  the  string  is  to  serve  as  the  be- 
ginning of  the  substring  Is  represented  by  oper2(ip)  . 

The  length  of  the  substring  is  represented  by  oper3(ip)  . 

An  additional  routine  substr ingeval  is  needed  so  that 
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each  of  the  parameters  is  evalti.ited  only  once,  thereby  elim- 
inating the  possibility  of  side  effects.  The  parameters  of 
the  substring  operation  appearing  on  the  left  side  of  the 
statement,  along  with  the  expression  appearing  on  the  right 
hand  side  are  evaluated  and  passed  to  substringeval  for 
further  processing.  If  tlie  field  specifying  the  length  of 
the  substring  (oper3(lp))  is  omitted,  it  is  assumed  that 
the  substring  is  to  consist  of  nil  characters  of  the  original 
string  beginning  at  the  loc.Uion  specified  by  oper2(ip)  . 

The  empty  node  is  then  p.issed  along  to  fill  the  place  of  the 
omitted  parameter.  All  parameters  passed  to  substringeval 
(except  for  the  empty  nodcl  ar<;  expression  variables.  */ 
class  ( ep)  = ' operat  ion  ’ A v(*tp)=sr^b^^r_ijig^  ^ 

slze(padj  (oper2(.’.p)  ,h(ell  (padj  (*.:p,h(Sp))))))=0 

/*  oper3(jp)  omitted*/ 
=»  substringeval  (operl  ( ' p)  , ev;;il  (oper2  ( Cp)  ) , 
il dine,  ey.^l^  ( t p ) ) 

size  (pad  j (oper2  (.'  p)  , h(<l  t (pad  j (*tp),h  (ip  ))))))  > 0 
/*  opcfltkp)  incliuh'd  in  substring 
operation  */ 

« substringeval (operl (f p) ,evaj^(opor2 (cp) ) , 
ev.i1  ( o p e 1-  3 ( E p ) ) , e v a J ( r p ) ) 

/*  Str  ingeval  assigns  the  string  con.structed  by  suhst  r ingr  tn  to  the 
string  variable  'Ep'.  ^nbst riiigrtn  is  treated  as  a primitive  operation 
which  creates  a copy  of  the  string  'rp',  t t\iiu’;ited  to  the  maximum  length 
of  'Ep',  if  necessary.  The  parameters  passed  to  stihst  r Ingrtn  are  expres- 
sion variables  which  are  defined  as  follows: 


parameter  1)  the  string  to  be  copied, 

parameter  2)  the  starting  location  of  the  string  to  be  copied 
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string  1 = original  string  ..'jitrand 

varl  = location  of  first  character  witiiin  string  to  be 

assigned  (,F1  ) 

var2  = number  of  characters  to  he  assigned  (F2) 

The  fourth  parameter  'rp'  is  an  eA|)r.";sion  variable  which  represents  the 
string  variable  that  is  to  be  assigneii  to  the  substring  appearing  on  the 
left  side  of  the  assignment  starom’'nt. 

If  var2  is  empty,  Itid  io  at  iur,  tn.tt  the  leiij.th  field  was  omitted,  the 
length  of  the  substring  is  l alculat.'d  and  the  sub.st  ringassign  routine  is 
then  invoked.  This  routine,  which  p.-rfitims  the  actual  assignment,  shall 
be  treated  as  a primitive  operation  in  this  section  of  the  paper.  Tlie 
parameters  passed  to  tlie  roufiiie  are  defined  as  follows: 

parameter  1)  expression  vari.aMe  containing  original  string 

parameter  21  expression  varialjlc  .:onta1ning  the  string  variable 
to  be  assigned  to  the  substring 

parameter  3)  expression  variable  contalnti^g  the  location  wititln 
the  original  string  at  wliicli  Mie  as-s  i gnmont  will 
begin 

parameter  4)  expression  varial>le  containing  tlie  length  of  the  sub- 
string to  he  a.s.signed 

parameter  5)  a node  wliose  value  is  initially  set  to  1. 

Upon  returning  from  subst  r Ingass  i g.u , both  the  siih^t  t iiigeval  and  assign 
routines  are  complete. 

(The  substring  assignment  is  described  In  detail  in  Chapter  V 
wliere  subst  r Ingass  tgn  i .s  treated  as  a semantic  funcrion  (48.3).)  */ 


(39.2)  subst  r ingeva  1 (stringl,  varl,  var2.  rp) 

^ class(st r Ingl )- ' exprvar iahl e'  A c 1 ass (var 1 ) = ' exprvar iable ’ a! 
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(class (var2)= ' exprvarlable ' V var2=[  ])  A class(rp)“ 

' exprvariable ' A type (*rp)= ' string ' A 
substrlngsyntax(*strlnRl ,*varl .*var2)=l 

/*  substring  syntax  OK  */ 


v(*varl)  > 0 =» 


/*  FI  positive  */ 


v(*var2)=0  =>  define(x  |v(x)=true)  /*F2=0,  no  action  taken*/ 
nslze (h(var2) )=0  A v(*varl)  s v(**stringl) 

/*  F2  omitted  and  FI  falls  within  bounds  of  string*/ 
/*  F2  omitted  */  =»  subst r Ingassign (stringl , rp , varl , add level 

(def Ine (x  | v(x)=v (**st r Ingl) - v(*varl )+l .type  (x)  = 

’ integer ')) .define (x |v(x)=l,type(x)=' integer ' ) ) 
v(*var2)  0 A v (*var 1 )+v (*var2 )-l  s v(**siringl) 

/*  F2  positive  and  lies  within  bounds  of  string*/ 

/*  F2  positive  */  ^ substr ingassign (stringl , rp .varl ,var2 .def ine (x ! v(x)=l . 

type (x)=' integer')) 

T =»  def ine (x | v (x)=undef ined .class (x)='data') 

/*  error  condition  */ 

T define  (x|v  (x)=undef  ined,class(x)='data') 

/*  error  condition  */ 

/*  Valuenode  returns  a node  whose  value  is  equal  to  that  of  an  evaluated 
argument  node.  */ 

(20.2)  valuenode  (node)  = 

!class(node)='exprvariable'  A (type(*node)=' integer’  V ( 
type  (*node)>» ' string ' ) V / 


class(node)«'data'  A (type (node)* ' Integer ' V 
type (node)* ' string' ) 


79 


class (node)= ' exprvarlable ' ^ 

type  (*node)=  ' integer  ' ■=>  def  Ine  (x  | (x)=v  (*node) ) 

type (*node)= ' string ' =>  assign (dcflne(x| type (x)='string' , 
class (x)  = 'data ' .structure (x)= ' scalar  ' , 
form(x)= ' simple ' .maxsize (x)=maxsize (*node) ) .node) 
class(node)= 'data'  => 

type (node)  = ' integer  ' ^ def ine (x | u (x)=u (node)  ) 
j type(node)=' string'  valuenode (add! evel  (node) ) 

/*  Pushl oc  adds  a local  variable  to  its  corresponding  stack  */ 

(28.2)  pushloc  (local)  = 

(type (1 ocal )=' integer ' V type(local)='string' ) 

A St  rue t ure (local)  = ' seal ar ' A form(local)='rec' 
type (local )=' integer ' ^ 

Set  h ( 1 oca  1 , push  (h  ( 1 (K  .. ! ) , def  ine  (x  ; a (x)  = a (*  local  ) ) ) ) 
t ype  (loca  1 )=  ' St  r i ng ' -» 


Set  h ( local , pusli  (h ( local ) ,def i ne (x [ a (x)  = a (* 1 oca  1 ) .h  (x)  = 


! append (list(deflne(y|v(y)=0)), define)))) 

(29.2)  instal locarray  (array,  count,  stack)  = 

(type (stack)= ' integer ' V type (st ack)= ' si r ing ' ) A 
form(st  ack)  = ' rec ' 

v(count)=0  /*  array  ready  to  be  added  to  stack  */ 
1 oca^t  t r (set  h (stack  , push  (li  (st  ack ) , ai'ray ) ) ) 
v(count)t*0  ^ /*  array  building  still  in  progress  */ 

type(stack)='string'  ^ 

Instal  locarray  (setli  (array , push  (li  (array)  , 

def i ne (y I a (y )=a (**st  ack) ,h (y )=append 
(list (define(x|v(x)=0)), define)))). 


4 


80 


setv  (count , (count ) -1 ) , 
stack) 

/*  proceed  to  install  next  element  of 
j array  */ 

type(stack)  = 'integer'  ^ 

/*  This  routine  returns  the  value  1 if  'node'  is  a string  variable  */ 

(40.2)  St r ingvar iabl e (node)  = 

structure (node)= ' seal ar ' A t ype (node)= ' st r ing ' ^ 1 
T 0 

/*  This  routine  returns  the  value  1 if  'node'  is  a string  array 

element  */ 

(41.2)  ® ringarrayelement  (node)  = 

class (node)= ' operat ion ' A v (*node)  = ref  A type (operl (node) ) = 

'string'  ^ 1 

T 0 

/*  This  routine  returns  the  value  1 if  the  syntax  of  the  substring 

is  valid,  i.e.,  'node'  is  of  type  string,  FI  and  F2  are  integer  ex- 

pressions, F2  may  be  omitted.  */ 

(42.2)  subst r in^s^nj^jc  (node,  FI,  F2)  = 

type (node)  = ' St r i ng ' A integerexpr  (FI ) = 1 
A (inte^erj^>y5r  (F2)  = l V ns  i ze  (h (F2 ) )=0)  1 

T -^0 

/*  This  routine  returns  the  value  1 if  'expr'  is  a string  expression  */ 

(43.2)  stringexpr  (expr)  - 

(class (expr )= 'operat ion ' A optype (*expr )= ' st r ing ' ) 


CHAPTER  V 


EXTENSION  3 
(STRINGS  (II)) 

In  this  section  an  added  level  of  detail  will  be  Introduced  Into  the 
modeling  of  strings.  The  <charllst>  which  heretofore  has  been  treated 
as  a unit,  will  now  be  treated  as  a node  which  Itself  Is  composed  of  In- 
dividual nodes  of  Information.  Each  of  these  nodes  represents  one  char- 
acter of  the  string.  A list  structure  Is  used  to  describe  this  sequence 
of  characters. 

Because  of  the  added  level  of  detail,  the  Implementation  of  routines 
that  were  called  In  the  previous  section  can  now  be  described.  The  list 
construction  primitives  push  and  append  are  used  by  these  routines 
to  generate  new  strings,  whereas  the  list  accessing  primitives  Item  and 
next  are  used  to  address  Individual  characters  within  an  already  exist- 
ing string. 

1.  H-Graph  Syntax 
Data 

V6.3  <strlng  var>  ::  » [ <length>*-*-<strlng>  ] ; class- ' data ' , type*  'string* . 

structure- ’scalar' , form" 'simple ' ,maxslze- 
nsize(h(<charlist>}) 

V8.3  <charlist>  ::  = [ <character>*(-Kcharacter>  1 

o 

example 

<strlng  var> 

string  F0UND[3]  ='N0' 

class-'data' , 
type-'strlng' 
structure- 'scalar ' 
form- 'simple' 
maxsize-3 
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Operations 

/*  The  primitive  operations  Introduced  In  the  previous  section  will  now 
be  treated  as  semantic  functions.  The  additions  of  the  previous  section 
pertaining  to  primitive  operations  can  now  be  deleted.  */ 

Semantic  Operations 

F3.3  <semantic  function>  ::  - ...  | [substringassign ] | [substring] | 

[3ubstring3] | [ substringrtn] | [buildstring] ! 
[setvalue ] j [setblanks] | [trim] | [trlmexpr] | 
[digits ] I [dig! texpr] ] [ con] 


2.  Semantic  Functions 


COMPONENT  FUNCTIONS 
(A. 3)  eval  (node)  = 

' class(node)='data'  a (form(node)=' rec’  V form(node)='slmple' ) V 
class(node)='exprvarlable'  V 

class(node)* 'operation'  a ( (category (*node)= ' primitive ' 

A ((form(*node)=*'binary ' a (optype  (*node)  = 

'integer'  V optype (*node)“ ' rel ' 

V opiype(*node)» ' log' ) a Integerexpr 

(operl (node) )=1  a intege rexpr (oper2 (node) ) =1) 

s 

* V (form(*node)« 'unary ' a (optype (*node) “ 


i 


'integer'  V optype(*node)= ' log' ) 

A integerexpr (operl (node) )»1) ) ) 

V category (*node) ' function ' 

\r  (category  (*node)  = 'semantic  ' a 

(v (*node)»asslgn  V ...  Vv(*node)“ 
stringeval  V v(*node)" 
substrlngcval  V v (*node)» 


— ! 
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substrlngassign  V v (*node)“substrlnK  <, 

V v(*node)“8ubstring3  V v(*node)*=  S 

substrlngrtn  V v (*node)“bulldstrlng  S 

j 

V v(*node)“Con  V v(*node)»setvalue  / 

V v(*node)”setblanks  V v(*node)«  S 

1 

digits  V v(*node)«digltexpr  V / 

v(*node)=trim  V v (*node)“trimexpr) ) ) j 

/*  node  to  be  evaluated  represents  an  operation  */ 
class(node)='operation'  =s 

category (*node)=»' primitive'  » 
form(*node)= 'binary ' =» 

V (*node) (eval (operl (node) ) ,eval (oper2 (node) ) ) 

/*  where  if  v(*node)=‘add  ^ add (eval (operl (node ) ) , eval (oper2 (node) ) ) 
v(*node)°sub  =>  sub (eval (operl (node) ) . 
eval (oper2(node) ) ) */ 
form(*node)“ ' unary ' a 

V (*node) (eval (operl (node) ) ) 

/*  node  to  be  evaluated  represents  a function  call  */ 
category(*node)=' function'  ... 

/*  node  to  be  evaluated  represents  a semantic  function  */ 
category(*node)='semantic'  =» 


v(*node)»substringassign  =»  substringasslgn(operl (node) . 
oper2(node),  ...  , operS(node)) 
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V (*node)»«substrlng  substring(operl  (node)  , oper2  (node)  . 

oper3(node) ) 

V (*node)°substrlng3  =»  s ubs t r ing3 (ope rl (node) ,oper2 (node)  , 

oper3(node) ) 

V (*node)«substringrtn  =>  substrlngrtn(operl(node) , 
oper2(node) ,oper3(node)) 

V (*node)»bulldstrlng  =»  b ul Ids t ring (ope rl (node) , 

oper2(node) oper6(node)) 

V (*node)=con  =s  con (operl (node) , oper2 (node) ) 

V (*node)  =set value  =»  setvaJLue (operl  (node)  , 

oper2(node) ,oper3(node) ,oper4(node)) 

V (*node)=»setblankB  setblanks  (operl  (node)  ,oper2(node) , 

oper3(node) ) 

V (*node)=dlgits  =>  digits (operl (node) ) 

V (*node)=°dlgltexpr  =»  dlgltexpr  (operl  (node)  ,oper2(node)) 

V (*node)»=trim  rj  trim  (operl  (node)) 

j V (*node)°trlmexpr  =»  trlmexpr (operl (node) ,oper2(node) ) 

/*  The  substring  operator  generates  a string  by  extracting  a substring 
of  length  F2  from  its  string  operand,  beginning  at  character  position 
FI.  The  string  operand  in  this  routine  is  the  node  'stringl'.  The  two 
fields  FI  and  F2  of  the  substring  operator  may  be  any  integer  variables 
and  are  nested  in  the  expression  variables  'varl'  and  'var2'  respectively. 
The  F2  field  may  be  omitted,  in  which  case  the  substring  from  character 
FI  to  the  end  is  implied.  If  F2  is  omitted,  the  subst  ring  routine  cre- 
ates a node  to  simulate  the  F2  field  before  calling  substring! . */ 

(44.3)  substring  (stringl,  varl,  var2)  •= 


v(*varl)  > 0 


/*  FI  positive  */ 
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/*F2  omitted*/  nslze(h(var2))“  0 =»  substrlnR3(strlngl, varl , addlevel 

(define (x| v (x)=v (**st ringl)-v (*varl)+l , 
type (x)”'integer',class(x)='data', 
form(x)“ 'simple ' ) ) ) 

/*F2  included*/  nsize(h(var2) ) > 0 =»  substring3(stringl ,varl. var2) 
v(*varl)  s 0 » define(x| v(x)»unde fined .class (x)°* data' ) 

/*error  condition*/ 

/*  Substrings  returns  an  expression  variable  containing  the  null  string 
or  invokes  substringrtn  to  build  the  new  string,  in  which  case  the  ex- 
pression variable  containing  the  new  string  is  returned.  */ 

(45.3)  substrings  (strlngl,  varl,  var2)  = 

substringsyntax(*8tringl,*varl.*var2)°l 

/*  substring  syntax  OK  */ 

v(*varl)+v(*var2)-l  s v(**strlngl)  =»  /*substrlng  lies  within 

bounds  of  stringl*/ 

/*F2^<0*/  v(*var2)  > 0 =»  subs t r ingr tn (stringl, varl, var 2) 

/*bulld  new  string*/ 

/*F2=0*/  v(*var2)=  0 =»  addlevel (def ine(x | class (x)° ' data' . 

type(x)“  'string'  .struct  lire (x)  = ' scalar ' , 


form(x)«‘ 'simple ' ,maxslze(x)=0,h(x)" 
append (list (define (x| v(x)=0) ) .define) ) ) 
/*F2  <0*/  v(*var2)  < 0 =»  def  ine  (x  | v (x)  *=  unde  fined , class  (x)  = ' data') 

/*error  condition*/ 

v(*varl)+v(*var2)-l  > v(**strlngl)  =»  de f ine (x|v(x) -unde fined, 

class (x) “ 'data ' ) 


/*  error  condition  - substring  does  not  lie  within  bounds 
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/*  Substrlngrtn  creates  a substring  from  the  node  nested  in  'strlngl', 
beginning  at  character  position  u(*varl).  The  length  of  the  substring 
being  created  is  v(*var2).  The  resulting  string  consists  of  a length 
component  and  a character  list  component.  The  string  is  nested  in  an 
expression  variable  before  being  returned. 

4n  auxiliary  routine  buildstring  is  invoked  to  generate  the  list  of 
characters.  */ 


(46.3)  substrlngrtn  (stringl,  varl,  var2)  = 

class(stringl)='exprvariable'  class(varl)='exprvariable'  ^ 
/\  class  (var2)  = 'exprvarlable  ' 
substririgsyntax(*strlngl, *varl  ,*var2)=l 
addlevel  (define  (z  [das  s(z)  = 'data',type(z)='st  ring', 

St ructuve(z)=' scalar' , form(z)= 
'simple ' ,maxsize (z ) =v (*var2) ,h (z )= 
/*length  component*/  append(list (def ine(y ] v (y )=v (*var2) ) ) , 

/*character  list  component*/  bui Ids t ring (define , 

def ine(xl V (x)=v (item(v (*varl) ,h(next 
(**stringl,h(*stringl)))))) , 
def ine (x| V (x)=0) , 


/*first  character*/ 


/*set  count  = 0*/ 

/*node  containing  original 
character  list*/ 

/*start  location*/ 
/*substring  length*/ 


next (**strlngl ,h(*st  r Ingl) ) , 

varl , 

var2)))) 


/*  Buildstring  is  a recursive  routine  which  builds  a node  whose  graph 
is  a character  list.  The  list  contains  the  characters  of  the  original 
string  ('charstring')  beginning  at  character  position  v(*Vl)  and  con- 
tinuing for  v(*V2)  characters.  One  'node'  at  a time  Is  appended  to 
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the  list.  When  the  counter  indicates  that  the  string  is  complete,  (i.e., 
when  v(count)*  (*V2))  , the  node  ' stringlist ' , whose  graph  is  the  com- 
pleted list  of  characters,  is  returned.  */ 

(47.3)  buildstring  (stringlist,  node,  count,  charstring,  VI,  V2)  - 
^ class (VI)  = ' exp rvariable'  class(V2)  = 'exprvariable' 

v(count)=v(*V2)  =»  stringlist  /*string  completed*/ 

v(count)  < v(V2) 

but Ids t ring (seth (stringlist , append (h(stringllst) ,node) ) , 
def tne (x I v (x)=v (item(v (*Vl)+v (count )+l ,h (chars t ring) )) ) , 
se tv (count ,v (count )+l) , 
charstring,  VI  , V2  ) 

/*  This  routine  assigns  a value  to  a substring  of  a string  variable. 

The  input  to  substringassign  is  as  follows: 

lef t : expression  variable  containing  the  string  variable  under- 

going assignment 

right : expression  variable  containing  the  string  variable  whose 

value  will  be  assigned  to  a substring  of  'left' 
position : expression  variable  containing  the  node  whose  value  is 

the  starting  position  within  the  original  string  variable 
at  which  the  replacement  will  begin 
length : expression  variable  containing  node  whose  value  corresponds 

to  the  number  of  characters  to  be  replaced,  as  specified  in 
the  substring  operation. 
index : node  whose  value  is  initially  set  to  1. 

Beginning  at  character  position  v(*posltlon)  of  the  original 
string  variable,  the  first  v(*length)  characters  of  node  (*right) 
are  assigned.  If  v(*length)  exceeds  the  length  of  tlie  string  in  'right', 
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the  value  of  the  specified  substring  is  extended  with  trailing  blanks  so 
that  the  replacement  of  the  desired  number  of  characters  can  be  made  com- 
plete. The  remaining  characters  of  the  original  string  ('left')  are  not 
changed,  nor  is  the  length  of  'left'  changed.  */ 

(48.3)  substringassign  (left,  right,  position,  length,  index)  = 

|class(left)='exprvarlable’  a type (*lef t)= ' string’  A c 

type (*right )=' string'  » class (right)= 'exprvariable ' a i 

class(position)='exprvariable'  A type (*poslt ion)= ' integer ' A ( 
class (length)= ' exprvariable ' A type(*length)= ' Integer ' A j 

type (lndex)= ' Integer ' ? 

^ (*length)  iv(**right)  /*length  of  right  string  exceeds  sub- 
string to  be  replaced*/ 

v(index)  s y (''‘*'^lght)  /*  assign  first  (length  of  left 

string)  characters  */ 

execute(def ine (xlclass(x)  = ' program' ,h (x)=append (1  ist ( 

[ setvalue ( left , right , posit  ion , index) ] ) , 

[ substringassign (left .right , pos it  ion , 1 ength , 
set  V ( index  ,\'  ( index)  +1)  1 ] ) ) ) 

/*proceed  to  next  cliaracter*/ 
v(index)  >v(**right)  def  Inc  (x  j v(x)‘=  true) 

/*asslgnment  complete*/ 

v(*length)  > v(**right)  ^ /*length  of  left  substring  to  be  re- 
placed exceeds  lengtli  of  right  string*/ 
v(lndex)  s v(**right)  =»  /*assign  characters  of  'right' 

to  'left'  string*/ 

execute(def ine(x!class(x)='program' ,li  tx)=append (list  v 
[ setvalue (left .right , pos It  ion, index) ]) , 
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[substrlngasslgnC left, right, posit Ion, length, 
se t V (Index, v( Index) +1) ) ] ) ) ) 

/*proceed  to  next  character*/ 

V (Index)  > v(**rlght)  =» 

V (index)  ^ v(*length)  =»  /*  add  trailing  blanks  */ 

execute (de fine (x I class(x)='prograin' ,h(x)“append 
(list  ( [setblanks(left,posltlon , index) ] ) , 

[subst r Ingas s i gn(lef t . right .position, length, 
setv(lndex,v(lndex)+l)) ]))) 

/*proceed  to  next  character*/ 

v(index)  > v(*length)  def ine (x ^ v (x)=t£ue) 

/*assignment  complete*/ 

/*  Setvalue  assigns  a character  from  right  string  to  left  string  begin- 
ning at  location  'position'  */ 

(A9.3)  setvalue  (left,  right,  position,  index)  = 

7 type(*left)='strlng'  a class(rlght)='exprvarlable'  a 
s type(*right)“ 'string'  a class (posit lon)= 'exprvariable ' a 
( type (*position) =' integer ' 

setv ( item(v (*posit ion)+v ( index) -1 ,h(next(**left,h(*left)))), 
v( i tein(v (index) ,h(next(**rlght,h(*rlght)))))) 

/*  Setblanks  assigns  blanks  to  left  string  beginning  at  location 
'position'  */ 

(50.3)  setblanks  (left,  position,  Index)  » 
type(*left)='strlng'  A 
type(*poslt ion)=' Integer' 

setv (1 tern (v(*position)+v( index)-! ,h (next (**lef t ,h(*lef t) ) ) ) , ) 
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/*  This  routine  concatenates  t!n  ru-iles  iv.  sti'cl  in  ’stringl'  and  'string2' 
and  returns  the  resulting  node  nested  In  an  outer  node.  The  auxiliary 
routine  buildstring  is  used  to  create  a copy  of  the  ciiaracter  list  of 
*stringl'.  The  routine  is  then  calK-d  a second  time  to  append  the  char- 
acter list  of'string?  to  the  newly  created  list.  This  list  is  tlien  ap- 
pended to  the  length  component  to  lomplete  Mie  concatenation.  */ 

(51.3)  con  (stringl,  stringl’)  = 

class (str ingl )=' exprvai iable ' a ty pe (*sl r i ngl )= ' str ing ' 

7 cl  ass  (st  r ing2  ) = ’ expi  var  i at)l  I ' a t vpe  (*st  r i ng2)  = ' str  ing  ' < 

addl  evel  (def  ine  ( .•  i c i a 1 - ' dat  a ' , type  ( z)  = ' s tr  ing ' , 

St  rui  t 1 . ; . ,1 1 .1  r ' ,m.ixs  i .’e  ( z)=m.jxs  ize 

( *s 1 1 I ng  1 ) ( ii'.i.ss  i ;■  0 ( ' .s  1 1 i ng2 ) , 
f orm( .;)  - it  p)  e ' , li  ( 


/*length  component*/ 


appi'iid  1 1 i : t (e  l 1 1.,  i'y  (y ) -'’  ( **s  t r ingl ) + 


(**st  ; i ng,2  ) ) ) , 

/*character  list  component  */  im  i 1 .i,-.!  i I ;i/.  ( lii  1 1 dst  r ing  (def  ine  ,def  Ine  (x  ] v (x)  = 


/*copy  stringl*/ 


/*strlng2*/ 


(it  ■. ;:;( 1 , li  (nex  t (**s  t r Ingl , 
li  t U'  i It  g !,»))))),  de  f ine  (x|  V (x)“0) , 
n.  ; ! (**.ti  ring]  ,li(*slrlngi) ) , 
idd  1 .’ve  1 (lie  f i lie  (x|  V (x)  “ J ) ) , 
ad_'  1 >!vy  l_(ile  t ine  (x  | v (x)  “ 
v(**st  ring] ) ) ) ) , 

di.'  t i ne  (x  I . f x)  “-.I  ( i t em(  1 ,h  (nex  t (**s  t r ing2  , 
b(*st  r lng2) ) ) ) ) ) . 
def  Ine  (x  (x)“0) , 
nex  t ( **s  t r Iug2  ,li  ( *s  t r i ng2  1 ) , 
add  level  (d<!  f 1 ne  (x  i (x)“l ) ) , 
addl eye! (def 1 tu?  (x''(x)"v(**strlng2 ))))))) 
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/*  Digits  returns  an  expression  variable  whose  Inner  node  has  the  value 
1 if  each  character  In  the  string  is  a digit  (0-9)  and  otherwise  returns 
an  expression  variable  whose  inner  node  has  the  value  0.  In  order  to 
avoid  side  effects,  the  string  expression  is  evaluated  only  once  by  the 
eval  routine.  The  digits  routine  separates  the  string  variable  into  its 
character  list  and  length  components.  It  then  calls  on  digitexpr  to 
perform  the  actual  examination  of  each  of  the  characters.  */ 

(52.3)  digits  (string)  = 

^ class (string)= ' exprvariable ' A type (*strlng)» ' string ' 

/*null  string*/  v(**strlng)  = 0 =>  addlevel (def ine (x I v (x)»0) 

v(**string)  >0  =»  digitexpr  (next  (**str  ing.h  (*string)  ) . 
**string) 

/*  The  'charlist'  parameter  for  the  digitexpr  routine  corresponds  to 
the  characters  of  the  string  under  scrutiny.  The  'counter'  parameter 
indicates  the  number  of  characters  that  have  still  not  been  examined. 

Its  Initial  value  is  set  to  the  total  number  of  characters  in  the  string. 
It  is  then  decremented  until  all  characters  have  been  examined.  If  each 
character  lies  between  0-9,  a nested  node  is  returned  whose  value  is 
1.  */ 

(53.3)  digitexpr  (charlist,  counter)  = 

v(counter)=0  =»  addlevel(define(x| v(x)=l))  /*only  digit  found*/ 
v(ltem(v(counter) ,charlist))=0  V v(ltem(v(counter) , 
charllst))=l  V 

...  V v(ltem(v(counter) .charlist) )=9  =» 

digitexpr (charlist , set V (count er.v (count er)-l) ) 

T =»  addlevel(define(x|v(x)°0))  /*non-dlgit  found*/ 

/*  Trim  builds  a string  which  corresponds  to  the  string  contained  in 
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the  expression  variable  'string'  truncated  to  remove  trailing  blanks. 

The  resulting  string  is  nested  in  an  expression  variable  before  being 
returned  by  the  trim  routine.  The  original  string  remains  unchanged. 

To  avoid  side  effects,  the  string  expression  is  evaluated  once  by  the 
eval  routine.  The  trim  routine  separates  the  string  variable  into  its 
character  list  and  length  components.  It  then  calls  on  trimexpr  to  per- 

m 

form  the  actual  truncation.  */ 

(54.3)  trim  (string)  = 

^ class(strlng)='exprvariable'  A type (*st rlng)= 'string ' ^ 
v(**strlng)=0  ^ string  /*  null  string  */ 

v(**string)  > 0 trimexpr (next (**string,h(*string)),**strlng) 
/*  The  'charlist'  parameter  for  the  tr imexpr  routine  corresponds  to  the 
characters  of  the  string  being  examined.  The  'counter'  parameter  indi- 
cates the  number  of  characters  that  have  not  yet  been  examined.  Its 
initial  value  is  set  to  the  total  number  of  characters  in  the  string. 

It  is  then  decremented  to  reflect  the  number  of  non-blank  characters  in 
'charlist'.  The  auxiliary  routine  bul 1 dst r i ng  is  used  to  build  the 
truncated  character  list.  */ 

(55.3)  trimexpr  (charlist,  counter)  = 

v(counter)/0  A v ( ltom(v  (counter  ), char  list ) )=  -W 

trimexpr (charl ist , sot v (counter ,v (counter) -1) ) 

/*  check  for  blanks  and  decrement  counter  */ 

T =9  /*  build  string  */ 

addlevel (define (z|class(z)»'data',typo.z)”'strlng', 

structure (z)=' scalar', form(z)«'slmple',maxslze(z)“ 


counter, h(z)“ 

append (llst(define(yl v(y) “counter) ) , 
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charlist , 

addlevel(deflne(x|v(x)»l)) , 
addlevel (define (x | v (x)=counter ) ) ) ) ) ) 


CONCLUSION 


Several  h-graph  models  for  SIMPL-T  have  been  presented  in  this  pap- 
er. These  models  attest  to  the  fact  that  it  is  possible  to  extend 
the  original  model  without  destroying  its  basic  framework.  The  inclusion 
of  string  data  in  Chapters  IV,  V required  additions,  but  very  few 
changes,  to  the  original  component  functions  of  the  base  model.  The 
control  functions  presented  in  Chapter  II  were  easily  adapted  to  provide 
the  flow  of  control  necessitated  by  the  addition  of  escape  mechanisms  in 
Chapter  III.  The  model  is  cognizant  of  what  has  preceded  a particular 
statement,  and  can  therefore  EXIT  from  a WHILE  loop  or  RETURN  from  a 
procedure  with  no  major  changes  to  the  control  functions.  Had  SlMPL-T 
Included  a GOTO  statement  among  Its  escape  mechanisms,  however,  major  re- 
visions to  the  original  model  would  have  been  necessary,  since  the  con- 
trol functions,  as  presented  in  these  models,  have  no  provision  for  for- 
ward jumps.  The  basic  model  presented  in  this  paper  did  prove  sufficiently 
flexible,  however,  to  Include  the  language  features  that  actually  exist 
In  SIMPL-T. 

The  models  themselves  are  complex,  but  they  merely  reflect  the  com- 
plexity of  tlie  semantics  of  the  underlying  language.  They  are  written 
in  modular  fashion  so  as  to  preserve  the  Independent  character  of  the 
extensions.  The  addition  of  an  EXIT  statement,  for  example,  has  no  ef- 
fect on  the  handling  of  strings,  and  vice  versa.  When  adding  a new 
feature  to  the  language,  the  designer  need  not  be  concerned  with  the 
effects  his  changes  may  have  on  unrelated  features  of  the  language.  He 
can  rather  focus  his  attention  tc'ward  the  task  of  incorporating  the  new 
features  within  the  existing  framework.  In  this  way,  he  can  continue 
to  use  modeling  as  a tool  for  the  further  design  and  modification  of  the 
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